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AKTUELE BIJLAGE BĲ COMMODORE DOSSIER 


Dn commopore DOSSIER AKTIEF ver 


schijnt 12 keer per jaar. In februari, 


| mei, augustus en november als bijla- 


ge in het hart van Commadore Dos- 


sier, in de overige maanden als los- 
se uitgave uitsluitend voor abonnees 
_van Commadore Dossier. 


DEZE MAAND: 


TIPS & TRUCS e 


EN 
LISTINGS VAN 
LEZERS 
Vanaf Pagina 1 
Met onder andere: Handige Pokes, Lotto, 


Karaktergenerator, Fucties voor de Vic-20, 


__Knipperen, Conversieptogramma, en vele 
_andere programma’s van lezers. 


CD-MARKT 
Pagina 14 
Gratis kleine advertenties van en voor 
abonnees. 


de stapel bijdragen van lezers. 


_onaanvaardbaar hoog gewor- 


den. Daar moest iets aan gebeu- 
ren. Tenslotte doen wij in elk 
nummer een bero PQ 


maanden wachten om zijn bij- 
drage, in het blad terug te vin- 
den. Daar komt nog eens. bij 
dat het niveau van de bijdragen 


_ vaak zo hoog is, dat we ze de 


andere lezers eenvoudig niet 
mogen onthouden. 

Toch kunnen niet alle inzendin- 
gen worden geplaatst. Een aan- 


tal ingestuurde programma’s 


was simpelweg gejat. Een lezer 
presteerde het zelfs om ons @ 
programma op te sturen da 
rechtstreeks was overgenomen 


BAN HET 
DATASPOOK 
Data-regels zijn de schrik van 
mensen die regelmatig listings 
intikken. Het is vrijwel onmoge- 


_ lijk om een lange rist getallen 


onder fouten in te tikken. 
Commodore Dossier heeft na- 
tuurlijk zijn controlegetal dat 
aan het eind van elke regel con- 


_troleert of alles in orde is. Maar 


ijvoorbeeld het checksum- _ 
programma zelf, dat uiteraard 


Ee Son is van controlege- 


anse, Engelse en Duitse 
_bladen hier op de redactie niet 
worden gelezen. Zelfs onze bin- - 


nenlandse collega’s/concurren- 


ten ontkwamen niet aan de co- 
_ _pieerdrift van sommige van on- 


lezers. 

ndanks de nauwkeurige con- 
trole op originaliteit blijft het 
altijd mogelijk dat een gestolen 
programma door de mazen 
glipt. Daarom stellen we nog 
maar eens duidelijk dat alle in- 
zenders de redactie 
van plagiaat. 
En dan komt het. a ve 
verschillende lezers dezelfde of 
vergelijkbare programma’ Si 
sturen, Programma's als en 
Mastermind, Beuwigdurende 


Kalender en Tik,Tak, Tor zijn er. 


loos zijn de brieven die melding 


maken van een ’out of data er: 
ror’ of ’illegal quantity’ in r 
gels 10 of 20, gevolg van 

fout bij het intikken van 


… data, 


Danny Scheers uit Deurne in - 
België schreef het volgende arti 


kel over dit probleem. Sommige 


van zijn oplossingen zijn niet 
direct van toepassing op Com- 
modore Dossier, omdat wij im- 
mers onze checksum hebben, 
mensen die ook pro- 


tuurlijk kan het ook voorkomen 
dat B lezers werkend. achter 


Van een aantal lezers ebben we 
geen rekening- of gironummer 


ontvangen. Hoewel hun bijdrage 


is geplaatst, hebben 
norarium dus nog ni 
overmaken. Verhelp 
met een kort briefje. 
Tenslotte wijzen we u 


de map ’Listings \ van lezer 
_dit speci 


mmer akelig 


is. Er wordt op u gerekend! 


genezen. 
3. Is er toch een fout in de 


_data-regels geslopen, dan kan 


men als volgt te werk gaan: — 
g, Gebruik een spraak- 
synthesizer, Na elke READ- 
variabele last u een SAY- 








listings vAn tëz 


Het beste uit POSTBUS 9194. De programma’s die in deze rubriek worden geplaatst, worden beloond met 50 gulden. Voorwaar- 
de is dat ze origineel zijn. Inzenders vrijwaren de redactie van plagiaat. De le bij voorkeur inzenden op schijf of cas- 
sette, zodat we zeker weten dat ze ‘lopen’. Gedrukte programma's moeten in elk geval van characterstrings in plaats van 


besturingstekens zijn voorzien. De beste wonmma uit deze rubriek kunnen in se 
-he 


SIER in samenwerking met een software-bedrijf commercieel op de markt te worden gebrac 


komen om door COMMODORE DOS- 
t. In dat geval staat de auteur alle 


rechten van het programma af aan Commodore Dossier in ruil voor een wettelijk geregeld deel van de opbrengst. 


De variabele in, desnoods met een 
vertragingslus. De computer 
leest dan data voor data voor 
en u volgt op de gedrukte 
listing. Gevonden fouten tekent 
u aan, maar u verbetert pas als 
het hele programma doorlopen 
is. Dan weer eerst saven alvo- 
rens te runnen, 

b. Wie niet over een spraaksyn- 
thesizer beschikt kan de volgen- 
de methode gebruiken. Na elke 
READ-variabele voegt u toe: 
PRINT variabele, :GOSUB xxxx 
Op regel xxxx komt dan: 

GET INS; IF IN$= "" GOTO 
KKK 

En op de volgende regel: 
RETURN 

Op deze manier drukt de com- 
puter de data een voor een af 
en wacht tussen elke data totdat 
u op een toets drukt. Weer 
geldt: eerst helemaal controle- 
ren, dan verbeteren, dat saven 
en dan pas weer runnen. 

4. Als u een illegal quantity er- 
ror in Xxxx krijgt, kan regel 
XXXX daar meestal niets aan 
doen. Daar staat namelijk ’PO- 


KE variabele’ of iets dergelijks. 
Om het regelnummer van de 
foute data te ontdekken, tikt u 
in: 

PRINT 

PEEK(64)*256 + PEEK (63) 


Programmeurs kunnen voor 
intikkende zwoegers 

heel wat problemen voorkomen. 

1. Bouw per programma een 
controle-som in. Tel alle data 
op en schrijf bijvoorbeeld: 

100 SOM=0:FOR X=1 TO 
20:READ 

A:SOM = SOM + A:NEXT 

110 IF SOM&N 1447 THEN 
PRINT”’FOUT IN DATARE- 
GELS'':STOP 

1000 DATA 
4,5,6,10,1,20,124,100,34,135 
1010 DATA 
23,145,129,240,124,233,12,2,88, 
12 

De programmeur kan deze som 
door de computer laten maken 
dus de hoeveelheid werk valt 
wel mee, 

2. Wat meer werk, maar ook 
heel wat informatiever is om de 


NOTA BENE 

Alle programma’s op deze en de volgende pagina’s zijn voor- 
zien van onze checksum. Die is te herkennen aan het voor- 
voegsel (shift)/(spatie). Deze twee woorden moet u dus niet 
intikken, maar u dient tegelijkertijd de shift-toets en de spa- 
tiebalk in te drukken. Op het scherm ziet dat er uit als een 
gewone spatie. Daarna voert u het feitelijke controle-getal in. 
Het ckecksum-programma, dat er voor zorgt dat uw compu- 
ter ook iets begrijpt van het ingevoerde controle-getal, vindt 
u op pagina 37 van Commodore Dossier. 


dataregels per regel op te tellen 
en de som ook per regel te ver- 
melden. De dataregels moeten 
wel hetzelfde aantal data heb- 
ben. Schrijf twee FOR-NEXT- 
lussen in plaats van één en voer 
een controle uit na de eerste. Is 
de controle FALSE’ dan laat u 
het regelnummer afdrukken 
waarop de foute data staan. 
Het voorbeeld uit tip 1 ziet er 
dan als volgt uit: 

100 FOR XX=1 TO 
2:SOM=0:FOR X={ TO 10 
110 READ 

A:SOM =SOM + A:NEXT: 


OMSLAAN, KNIPPEREN EN ONDERLIJNEN 


De heer Barendrecht uit Maas- 
dam stuurde de volgende drie 
tips. De subroutine ‘omslaan’ is 
bedoeld om onafhankelijk van 
het indrukken van de spatiebalk 


OMSLAAN 


door een programma te kunnen 
‘bladeren’. Het stukje program- 


ma moet volgens de heer Baren- 


drecht aan het einde van een 
programma staan en er moet 


naar toe worden gesprongen 
met een ’gosub’. De program- 
maatjes ’onderlijnen’ en ’knip- 
peren’ doen gewoon wat ze 
beloven. 


READ CONTROLE 

120 IF CONTROLE &/:S0M 
THEN PRINT”FOUT IN RE- 
GEL"';PEEK(64)*256 + PEEK(6 
3) 

130 NEXT 

1000 DATA 
4,5,6,10,1,20,124,100,34,135,439 
1010 DATA 
23,145,129,240,124,233,12,2,88, 
12,1008 


_ De PRINT PEEK 


(64)*256 + PEEK(63) geeft altijd 
het juiste regelnummer, dus dit 
stukje kan al in het programma 
worden verwerkt, 


10 printchr${18)"voor verder:druk op ’space’”chr$(1i46)<shift>/Cspatie>f6 
20 getp$:ifp$=""then20{<shiftd/{<spatie>13 
30 ifasc{p$)=13orasctpsd=1l4lthen20{shiftd/<spatiedb6 
40 return{shift>/{spatie>a6 


KNIPPEREN 


10 le&="":forz=ito9:les=lestchrs(i57d:neztishiftd/Cspatie>07 
20 printchr#{147)<shift>/<spatie>/79 


30 print*programma voor het laten “chr$(18)’Kknipperen"chrs$(146)£&shift>/{spati 


e>ba 


40 print'van een woord.”{shift)»/{spatie>c9 
50 printchr$(17)"een woord laten knipperen“s<shiftd/{spatied7d 

55 fork=lto2O:printleschr$(18)"knipperen"chr$(146);{<shift>/<spatie>07 
60 forkk=ltobO:next:printles"knipperen";s:forkk=lto50:nextkk,.k{shiftd/<spatie»84 
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COMMODORE DOSSIER 


ONDERLIJNING 


60 fork=itolS:forkk=lto2S:print""; 


<spatiedcd 


JSENJS VON 


50 print: print: print'een lopende onderlijning."<shift»/<spatied8l 


Belnl El ld 






snextKKk:print:printchr$(ld45S)chr$(tas)<shift>/ 


70 forkk=lto25:print" “s:nextkk:print:iprintchr$(145)chr$(l45)rnextkéshift>/{spat 


ie>i4 


LUCIHFERS 

M.R. de Rozario uit Geertrui- 
denberg stuurde ons de bijgaan- 
de computerversie van het alou- 
de luciferspelletje. In het echt 
wordt het spelletje met één sta- 
peltje lucifers gespeeld, waarvan 


keer afnemen. Wie de laatste lu- 
cifer wegneemt, heeft gewon- 
nen. Tenminste, dat beweert 
M.R. de Rozario. Wij menen 
ons uit onze jeugd te herinneren 
dat degene die de laatste lucifer 


In deze computerversie liggen er 
in elk geval meer stapeltjes luci- 
fers op tafel. Maximaal 5. De 
speler mag minimaal | en maxi- 
maal 5 lucifers wegnemen. 
Streepjes geven aan hoeveel lu- 


een schuine streep voor elke 
vijfde lucifer, een kruis voor el- 
ke tiende. De speler voert eerst 
in van welke stapel hij lucifers 
wegneemt en dan hoeveel. 


twee spelers l of 2 lucifers per moet oprapen, verloren heeft. cifers er op een stapeltje liggen, 


LUCIFERS 


5 poke53280,15:poke53281,15<shift>/{spatie>3e 


10 printchr${147)dchrs(i7dchrs(31d” KkkKAAKAKK KAAK AK" (shiftd/{spatie 


>63 

20 print” kkk A AKA AK  Cshiftd/Cspatied8d 
30 print” kkkkluciferskkkk"<shiftd/<spatied96 
40 print” kkk KAAK KAK KK Cshiftd/Cspatiedbl 
50 print” KkkkkAAAARKKKAAK Cshiftd/Cspatiedab 


60 printchr$(17)chrs(17)chrsCt17chrs$t17," 
<spatie>b0 

70 printchr$C17)" 

80 printchr$C17)chrsC17)” 
90 f$="":getf${shiftd/Cspatied73 

100 iff$=" "thenprintchr$(i42):gotol304shift»/<spatie>51 

110 iffs$="äthenendéshift>/{&spatie>b2 

120 goto904shift>/{spatie>f8 

130 poke53280,15:poke53281,15<shift>/Xspatie>b9 

140 z=lintlrnd(tijkSdeidin=linttrnditijk5)tijshift>/Cspatiedaz 

150 lu$="BBBB/BBBBVBBBB/BBBBVBBBB/BBBBVBBBB/BBBBV"<shift>/<spatie>i9 

160 forh=ltoz(shift)/{spatied14 

170 lCh)=CintCrndltijkbO)tI)siflCh)<lOthen1i70shift»/{Xspatiedaa 

180 nexth<shift»/&spatie>7e 

190 printehr$C(147)chrsCid6)chrs(31)"max. weg te nemen lucifers is“n<shift>/Xspat 
iedfd4 

200 forx=itoz:printchr$(17)chr$(152)"stapel"xshift>/<spatie>b8 
210 printchr$(i44jlefts(lus,lCx)d:inextxishift>/<spatie>9i. 

220 print:sprintchr$(1i7)chr$C31)* jouw beurt "C(shift>/Xspatiedbi 
230 h=0O:a=O:printchr$(30):input"welke stapel , aantal lucifers “5 
tie>57 

240 ifh=Othen90éshift>/{spatiedif 

250 ifh>zthenprintchr$(1i7)chr$(28)"er zijn maar”z"stapels® hrs 31): goto2304shift 
>/Xspatiedaf 

260 ifadlCh)thenprintchr$(i7)chr$t28)"stapel"n"bevat"l(h)“lucifers":goto230Xshif 
t>/{<spatiedca 

270 ifa{ltora>nthenprintchr$(i7)chr$(28)"min 1 en max”n“weg nemen":goto2304shift> 
/Xspatie>8b 


[space] = nieuw spel"X<shift>/ 


[shiftlí[spcel = einde"{<shift>/{spatie>04 
mdr 2001"<shiftd/{spatie>9t 


„asshift>/{<spa 


280 ICh)=lChd-alshift»/éspatied4t 

290 iflCh)<>Othen340<shift>/<spatiedOf 

300 y=léshiftd/<spatiedf7 

310 iflCy)>=Oandys=ztheny=yti:goto3i0{shift>/{<spatie>88 

320 ifyd>zthenw$=" jij bent “:wv=i:igoto4004shift»/{<spatie>55 
330 h=y<shiftd/{spatiedeg8 

340 z=l&shiftd>/Cspatied>8e 

350 iflskln+1d)lhdthenx=xti:goto350<shift>/<spatie>48 

360 a=lCh)-CCx-idkCntidd:ifarnthena=Cinttrnditidkn)+idtshift>/<spatie>be 
370 l(h)=lth)-atshift>/<spatie>2b 

380 fory=itoz:ifllyd>=Othennexty:v$=" jij bent “swv=2:goto400<shift>/<s 


patie>31 


390 y=z:inexty: gotol90Xshift»/Cspatie>5c 

400 ifwv=ithenwvs=w$t"gewonnen ! “<shift>/<spatie>4l 

410 ifwv=2thenwvs$=v$t"verloren ! “éshift>/<spatie>43 

420 printchr$(147)£<shift>/{<spatie>c8 

430 ti$="000000":f$=""{shiftd/{spatiedce 

440 getf$<shift>/<spatie>7a 

450 poke53280,0:poke53281,1:printchr$(i47)dchr$Ci4ddchrs(17shift>/Cspatie>99 
460 printchr$(17)chr$ti7dchrsCti7)dchrsC17dchrsli7dchrsti7dchrst17dchrsC 17) <shift> 


/<spatie>54d 
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470 
480 


490 
500 


510 
520 
530 


printchr$(i8)” 
printchr${(18)wv$;{<shift>/{spatieda9 
printchr$(18)" 

iff$=" "thenl30éshift>/{éspatiedtib 
iffs="äthenend{<shift>/<spatie>23 
ifti<5Sthen520<shift>/{spatie>8a 
getfséshift>/Cspatie>d3 

540 poke53280,1:poke53281,Orprintchré(147dchrs(S)chrsC17) shiftd/Cspatie>40 

550 printchr$(1i7)chrs(i7dchrslijdchrs$(i7dchrs(i7ichrs(i7dchrs(i7iechrsCt17) ‘shift> 
/{{spatiebdbd E 

560 printchr$(18)” 

570 printchr$(18)wvsi<shift>/Cspatie>70 
580 printchr$(18)” 

590 iffs=" "thenl304shift>/Xspatie>a2 
600 iff$="äthenend<shift>/<spatie>86 
610 ifticlOthen6i0{shift>/{<spatiedd4 
620 goto430<shiftd/<spatie>d0 


“s4shift>/<spatiedba 


“s<shift>/{spatie»86 


“s4shift>/Xspatied5f 


“s<shift>/Cspatie>2b 


KARAKTERGENERATOR 
Kwaliteits-inzending van W. Sit- der in beeld verschijnen nu de 
ters uit Klundert. 255 te veranderen tekens en ver- 


matisch de bijbehorende data 
voorgschoteld krijgt. Om tekens 


met de spelpook naar een teken 
onder in beeld te gaan en ver- 


Met behulp van de joystick en 
het toetsenbord maakt het vol- 
gende machinetaal-programma 
een nieuwe letter-set. 

Als het programma geRUNd 
wordt, vraagt hij of u de 
bestaande set wilt behouden of 
niet. Als u nog niets heeft ge- 
daan, antwoordt u natuurlijk 
met n(ee). De bestaande 
karakter-set wordt nu vanuit 
ROM naar RAM geladen. On- 


der wordt een veld zichtbaar 
van 8 bij 8 blokjes met daarin 
een paarse cursor. Links van 
het veld ziet u een cijferreeks, 
de data van het teken dat in be- 
werking is. Het paarse blokje is 
te bewegen met de spelpook in 
poort 2. Een druk op de vuur- 
knop levert een wit blokje op, 
een hernieuwde druk laat dat 
weer verdwijnen. Zo maakt u 
uw eigen tekens, terwijl u auto- 


te gaan definiëren drukt u op D 
waarna het apestaartje onder in 
beeld wit oplicht. Met de spel- 
pook zoekt u nu het teken op 
dat u zojuist in het werkveld 
heeft veranderd. Het teken on- 
derin wordt met een druk op de 
vuurknop hetzelfde als het zo- 
juist in het werkveld aange- 
maakte teken. Met W wordt het 
werkveld schoongewist. Door 
eerst op D te drukken en dan 


volgens op C te drukken, ver- 
schijnt dat teken uitvergroot in 
het werkveld, waarna u er aan 
kunt gaan rommelen, Met de 
toets X keert u terug naar Basic 
met behoud van de zojuist aan- 
gemaakte teken-set. Via 
run/stop/restore komt u in Ba- 
sic met de fabrieks-teken-set. 
Na een reset kan de generator 
weer worden opgeroepen met 
SYS 49152, 


KARAKTER GENERATOR 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


fori= 49152 to 50819%shiftd/{spatiedb4 

readx:pokel,x:s=Stxinextéshiftd/{<spatiede3. 
data Jb, 65,192, 17, 
data 75, 84, 69, 82, 
data 79, 82, 32, 86, 
data 48, 13, 17, 32, 
data 32, 32, 32, 32, 


82, 
65, 
49, 


65<shiftd/Cspatiedel 
84<shift>/<spatie>2b 
46<shift»/éspatie)>23 
324shift>/éspatied30 


A2, 32, 32, 32, 79, 65, 
84, Jl, 69, 18, 69, 82 
69, 82, 83, 73, 69, 32, 
32, 32, 32, 32, 32, 32, 32, 
32, 87, 32, 83, 73, 84, 84, 69shift>/<spatied00 
data 82, 83, 32, 13, O,169,147, 32,210,255,169, Geahifts/{spaties33 
data 141,134, 2,169, 3,141, 32,208,141, 33,208,160{<shift»/<spatie>l0 
data 0,185, 3,192,240, 46, 32,210,255,200,208,245{shift»/{spatie>ib 
data. 17, 17, 32, 32, 77, 79, 69, 84, 32, 68, 69, 324shifth/éspatie>6b 
data 83, 69, 84, 32, 66, 69, 72, 79, 85, 68, 69, 78Cshiftd/<spatied73 
data 32, 66, 76, 73, 74, 86, 69, 78, 32, 40, 74, 47{4shift>/{spatied7f 
data 78, 4l, (3, O,160, 0,185, 96,192,240, 6, 324shifte/sspatie,/e 
data 210,255,200,208,245, 32,228,255,201, 74,240, 6G94shift»/<spatie>67 
data 201, 78,240, 21, 16,149,192,169,1459, 32,210,2004Cshift)/&spatie,oo 
data 169, 32,162, O, 32,210,255,232,224, 80,208,248{<shift»/<spatie>9b 
data 96, 32,163,192,120,165, 1, 72, A4Al,201,133, iéshift»/Sspatiesa6 
data 169,208,133, 3,169, 48,133, 5,160, 0,132, 2éshift»>/{spatie>83 
data 132, 4,162, 32,177, 2,145, 4,200,208,249,230Cshift>/{spatiedbd 
data 3,230, 5,202,208,242,104,133, 1, 32,163,192<shift>»/<spatiedbl! 
data 173, 24,208, 41,241, 9, 12,141, 24,208, 88, 76Xshift»/{spatie>90 
data 251,192, O0,254,254,254,254,254,254,254,255,1604shift»/<spatieded 
data 0,185,242,192,201,255,240, 6,153,248, 55,200<shift>/<spatie>dc 
data 206,243,169,119,133,451l,169, 5,133,2592,162, BCshiftj/éspatiesf? 
data 160, 0,169,255,145,251,200,192, 8,240, 2,208{Xshift>/{spatie>f3 
data 247, 24,165,251,105, 40,133,251,165,252,105, OXshiftò/{spatiedcl 
data 133,252,202,208,227,162, O0,134,251,165,251,1574shift>/{spatie>d7 
data 208, 6,232,208,246,169, 6,160, O0,153,231,2164shift)>/<spatie>da 
data 200,208,250,153,230,217,200,208,250,153,230,218{shift»/éspatied27 
data 200,208,250,141,230,219,141,231,219,169,119,133<shift»/<spatie>36 
data 251,169,217,133,252,162, B,169, 0,160, O,145{shiftd/{spatie>38 
data 251,200,192, 8,240, 2,208,247, 24,165,251,105<shift»/éspatie»35 
data 40,133,251,165,252,105, 0,133,252,202,208,227{Xshift»/{spatie>39 
data 76,132,193, 0,169, O,ldt,t31,193, 76,204,193(shift»/éspatie»i2 
data 0, 0 0. 0 0. 0 0. OO 0, OO, OO, Okshift)/Cspatieson 
data 0 0 0 0 0 0 d, 0. 0 0. ò. Ocshifts/Cspatiedee 
data 0 0, 0. 0. 0, 0, 9, 0 O0, 0, OO, Ocsnittbo/sepatle,/e 





COMMODORE DOSSIER AKTIEF 5 








COMMODORE DOSSIER 






[SEG Vin ICZE 


440 data o, 0, 0, 0, 0, 0, 0, 9, 0. O0, 0. Otanifts/Cspatierde 
490 data 0, 0, 0, 0. 0, 0, 0, 0, Ó, O0, O, Ocsnift»/cepatiesad 
500 data Oo, 0, O0, 0,169,119,133,174,169,217,133,1754shift»/{spatie>56 
510 data 169,119,133,251,169,217,133,252,169,140,133,253Xshift>/{spatie>50 
520 data 169,193,133,254,162, 8,160, 0,177,253,145,2514shift»/(spatiedab 
530 data 200,192, 8,240, 2,208,245, 24,165,251,105, 40{shift>/{spatie>bO 
540 data 133,251,165,252,105, 0,133,252, 24,165,253,105{shift>/{spatie>85 
550 data 8,133,253,165,254,105,- 0,133,254,202,208,214shift>/{spatie>8o 
560 data 6. 24.194, 16, 15, 0,173, 0,220, 4i, LG, l4icehiets/éspatiesgD 
570 data 19,194,173, 0,220, 4l, 15,141, 20,194,169, 154shift>/{spatie>a7 
580 data 56,237, 20,194,141, 21,194,201, 1,240, 15,201{shift>/{spatiedea 
590 data 2,240, 42,201, 4,240, 69,201, 8,240, 77, 764shift»/Xspatiede3 
600 data 151,194,165,174,201,119,208, 9,165,175,201,217Xshift»/{spatie>f3 
610 data 208, 3, 76,151,194, 56,165,174,233, 40,133,174{shift)/Xspatie>£8 
620 data 165,175,233, 0,133,175, 76,151,194,165,174,201{shift>/{spatie» fb 
630 data 143,208, 9,165,175,201,218,208, 3, 76,151,194shift>/{spatiede6 
640 data 24,165,174,105, 40,133,174,165,175,105, O,133Xshift>/{spatie>2c 
650 data 175, 76,151,194,172,131,193,240, 18,136,140,1314shift>»/{spatie>2d 
660 data 193, 76,151,194,172,131,193,192, 7,240, 4,200{shift>/4spatie>0b 
670 data 140,131,193, 76,155,194,255, 32, 53,197,173, 194shift>/Xspatie>35 
680 data 194,201, 0,208, 3, 32,236,194,165,197,201, 18{shift>/{spatie>0e 
690 data 208, 3, 32,150,195,165,197,201, 23,208, 21,169Xshift>/{spatie>26 
700 data 147, 32,210,255,169, 6,141, 33,208,169, 14,141Xshift>/Cspatie>za 
710 data 32,208,169, 14,141,134, 2, 96,201, 9,208, 3Xshift>/(spatie>57 
720 data 32,130,195,169, 4,172,131,193,145,174,162,200{<shift>/<spatie>40 
730 data 160, 0,200,208,253,232,208,248, 76,212,193, OXshift>/{spatie>40 
740 data O0, O0, 7, 56, 56,165,174,233,119,141,232,194shift>/{spatied de 
750 data 165,175,233,217,141,233,194,162, 0,173,232,194shift>/{spatie>4l 
760 data 201, 0,240, 29,162, 1, 56,173,232,194,233, 404shift»/Xspatie>60 
770 data 141,232,194,173,233,194,233, 0,141,233,194,173Xshift»/{spatie>a3 
780 data 232,194,201, 0,240, 3,232,208,229,142,234,194{shift)/Xspatie>a7 
790 data 24,172,234,194,169, O, 24,105, 8,136,208,2504shift>/{Xspatie>bc 
800 data 141,235,194,173, 19,194,208, 67,173,231,194,240{shift)/Xspatie>85 
810 data 29, 24,173,235,194,109,131,193,168,185,140,193Xshift>/Xspatie>8b 
820 data 201, 0,240, 5,169, 0,141,231,194,169, 1,153Xshift>/Xspatie>96 
830 data 140,193, 32,124,195, 96,173, 19,194,208, 28, 24Xshift»/<spatiebaf 
840 data 173,235,194,109,131,193,168,185,140,193,201, IXshift>/{spatiede6 
850 data 240, 5,169, 1,141,231,194,169, 0,153,140,193(shift>/{spatie> fd 
860 data 32,124,195, 96,162, 0,232,208,253, 96,160, Olshift>/Xspatie>c4 
870 data 169, 0,153,140,193,200,192, 64,240, 2,208,246(shift>/Xspatie>f9 
880 data 96, O0, 0, 15, 0,255,169, 1,141,208,218,1604shift»/Xspatie>d8 
890 data 0,140,148,195,173, 0,220, 41, 16,141,145,195Cshift»/{spatie>dd 
900 data 173, 0,220, 4l, 15,141,147,195,169, 15, 56,237(shift»/Xspatie>28 
910 data 147,195,141,146,195,201, 4,240, 7,201, 8,240shift>»/Xspatie>Zc 
920 data 21, 76,232,195,172,148,195,140,149,195,136,140Xshift»/Xspatie>39 
930 data 148,195,169, 1,153,208,218, 76,232,195,172,148{shift>/{spatie>31 
940 data 195,140,149,195,200,140,148,195,169, 1,153,208shift>/{spatie>0c 
950 data 218, 76,232,195,162,200,160, 0,200,208,253,232{shift>/{Xspatie>21 
960 data 208,250,173,146,195,208, 17,173,145,195,240, 23<shift>/<spatie»69 
970 data 165,197,201, 20,208, 3, 76,145,196, 76,160,195{shift>/Xspatie>57 
980 data 172,149,195,169, 6,153,208,218, 76,160,195,169shift>/<spatie>46 
990 data 6,172,148,195,153,208,218,172,148,195,192, OCshift>/{spatie>78 
1000 data 240, 35, 76, 38,196,255,162, 0,142, 37,196,1744shift>/{spatie>48 
1010 data 148,195,169, O, 24,105, 8,144, 3,238, 37,196Xshift>/Cspatie>5b 
1020 data 202,208,245,133,193,173, 37,196,133,194, 76, 754shift>/{spatie>62 
1030 data 196,169, 0,133,193,133,194, 24,165,193,105, OXshift>/Xspatie>9i 
1040 data 133,193,165,194,105, 48,133,194, 76, 94,196,1264shift>/{spatie>8d 
1050 data 8,255,162, 0,142, 92,196,160, 0,140, 91,1964shift>/{spatie>b8 
1060 data 189,140,193, 13, 91,196,141, 91,196,192, 7,240shift>/{spatie>bc 
1070 data 7, 14, 91,196,200,232,208,236,172, 92,196,173Cshift>»/{spatie>b9 
1080 data 91,196,145,193,200,140, 92,196,192, 8,240, 4Xshift>/Xspatie>9c 
1090 data 232, 76, 99,196, 96,172,148,195,240, 31,162, OXshift»/{spatiedef 
1100 data 142, 37,196,174,148,195,169, O, 24,105, 8,144lshift>/{spatieded 
1110 data 3,238, 37,196,202,208,245,133,163,173,- 37,196{shift>/{Xspatie>fe 
1120 data 133,164, 76,187,196,169, 0,133,163,133,164, 24shift>/Xspatie>c7 
1130 data 165,163,105, 0,133,163,165,164,105, 48,133,164Cshift>/Xspatie>fd 
1140 data 162, 0,160, 0,177,163, 4l,128,240, 5,169, lCshift>/4spatiedea 
1150 data 157,140,193,232,177,163, 41, 64,240, 5,169, IXshift>/Xspatie>d5 
1160 data 157,140,193,232,177,163, 4l, 32,240, 5,169. ICshift>/4spatie)20 
1170 data 157,140,193,232,177,163, 41, 16,240, 5,169, IXshift>/{spatie>3c 
1140 data 157,140.193,234,177,163. Al. 8,240, 5,169, I4snift»/{spatie>0d 
1190 data 157,140,193,232,177,163, 4l, 4,240, 5,169, I{shift>/{spatie>3b 
1200 data 157,140,193,232,177,163, 41, 2,240, 5,169, 1{shift>/4spatie>2b 
1210 data 157,140,193,232,177,163, 41, 1,157,140,193,232{shift>/Xspatied20 
1220 data 200,192, 8,208,159,169, 6,172,148,195,153,208Cshift»/Xspatle>69 
1230 data 218, 76, 66,197,195, 36, 24, 24, 60, 60, 24,1264shlft>/Cspatied6b. 
1240 data 126, 8,162, 9,160, B, 24, 32,240,255,162, O{shift>/Xspatie>7b 


1250 data 142, 65,197,160, 0,140, 64,197,189,140,193, 134shift>/4spatle>71 
1260 data 64,197,141, 64,197,192, 7,240, 7, 14, 64,197Xshift>/{spatied47 
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data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
ifs<> 
print 


197,200,140, 
197,160, OO, 


0,233, 
168, 
48, 
210,255,169, 
255, 
255, 


109,133,173, 
136,172, 77, 
32, 32, 15, 

15, 76, 68, 

84, 32, 

15, 


0, 
0, 
0, 
0, 
0, 


3,232,208,249, 
10,144, 

2,141,169, 
32,210,255,232,224, 


32,210,255, 
32,210,255,200,192, 
32,112,133,189,239,142,240, 
2,109, 133, 
3,208,127, 


14,189,233, 142, 
„32,112,133,202,208,210, 240, 


65,197,192, 
56,162, 
24,105,100,142,167, 
3,232,208,249, 
2,162, OO, 


8,240, 


32,210, 405, 
32,210,255, 
8,208,166, 


29, 


6, 

84, 3,205, 75, 
3,240, 47,173, 

83, 84, 69, 32. 

65, 35, 49, O, 

53, 54, 

69, 69, 


85, 
89, 
47, 
94, 


0, 


44, 


15,255, 


0, 
0, 
0, 
0, 
0, 


SCHRIJFMACHINE 


C. Fransen uit Dordrecht stuur- 
de het aardige programmaatje 
in dat een zogenaamd 


SCHRIJFMACHINE 


10 
20 
30 
40 
50 
60 
70 
80 
90 


data 
data 
data 
data 


het 
Ce 


’schrijfmachine-effect’ be- 


werkstelligt. De snelheid van het 


typen kan worden geregeld in 


printchr$(147){<shift>/{spatied67 
ford=ito4cshift>/<spatie>c2 
reada$:k=ktigshift>/éspatiedef 
forl=itolenta$):printmid$Cas,l,1)s:sforh=itol0O:nextinext<shift>/{spatiedch 
printchr$(19):forg=ltok:printchr$({7):inextgsnextdiend{shift>/<spatied2f 
dit programma laat het zgn<shift»/{<spatiedac 
schrijfmachine=effect zien.{Xshiftd/<spatiedc3 
is ingezonden door{<shift>/{spatie»97 
fransen uit dordrecht{<shift»/{<spatiedea 


SORTEERROUTINE 


Anton Houweling uit Utrecht 
stuurde een voortreffelijke, uit- 
voerig gedocumenteerde sorteer- 
routine in waarmee het mogelijk 
is een willekeurig aantal array’s 
alfabetisch te sorteren, bijvoor- 
beeld in een adressenbestand. 
Voorwaarde is dat alle in het 
bestand gebruikte array’s string- 
array’s zijn, gedimensioneerd als 
één-dimensionale array’s en 
maximaal 255 elementen bevat- 
ten. De sorteerroutine werkt 
volgens het bubble sort princi- 
pe, de te sorteren array wordt 
geheel doorlopen, waarbij steeds 
twee elementen met elkaar wor- 
den vergeleken. Indien het 
eerste element groter is dan het 
tweede, vindt verwisseling plaats 
en worden in alle overige ar- 
ray’s de overeenkomstige ele- 
menten ermee verwisseld. Indien 
bij het doorlopen van de array 


geen verwisseling plaatsvindt, 
wordt teruggesprongen naar Ba- 
sic. De routine verwisselt niet de 
string zelf, maar alleen de string 
beschrijver. Basic-array’s wor- 
den in het variabelen-gebied di- 
rect achter het Basicprogramma 
opgeslagen en aangegeven door 
de pointers start Basic-array 
($002f-0030) en einde Basic- 
array ($ 0031-0032). Bij één- 
dimensionale string-array’s vor- 
men de eerste zeven bytes de 
header, te weten twee bytes 
voor de naam, twee bytes voor 
de off-set naar de volgende ar- 
ray, één byte voor de dimensie 
(O1) en twee bytes voor de leng- 
te van deze ene dimensie. Na de 
header volgt de beschrijver, te 
weten per element drie bytes, 
één byte voor de lengte en twee 
bytes voor de pointer die het 
begin-adres van de string 


24,105, 
24,189,167, 
3,208,242, 169, 
32,210,255, 
34,210, 250 


15,210, 


2, 
13, 
96, 


32, 


31, 
15, 


89, OO, 


0, 
0, 
0, 
0, 
0, 


regel 40. Door de vertragingslus 
aldaar korter te maken, wordt 
het programma sneller, door 


aangeeft. 

Het Basic-gedeelte van het pro- 
gramma zet de naam van de te 
sorteren array in een willekeuri- 
ge string. De naam van deze 
string, de laatste door Basic ge- 
raadpleegde variabele, staat op 
$ 0045-0046, Het eerste gedeelte 
van de routine vergelijkt de na- 
men van alle array’s met die lo- 
catie en geeft de foutmelding 
’not found’ indien de gezochte 
array niet gevonden wordt. Te- 
vens loopt een teller mee ($ 
004e) die aangeeft na hoeveel 
overgeslagen array’s de gezochte 
array gevonden is. 

Indien de te sorteren array ge- 
vonden is, staat de pointer be- 
gin string-array in $ 005f-0060. 
In het tweede deel van de routi- 
ne worden de pointers die het 
eerste en het laatste element van 
deze string-array aangeven, vei- 


COMMODORE DOSSIER AKTIEF 8 


Well 


200,232,208,236,1/2, 60,197,173, 64,197,153, H6Ceniftd/cspatie»65 
4,232, 76, 79shift>/<spatie>92 
0,185, 56,197,233,100,144éshift>/<spatiedac 
56,162<shift>/<spatie>bb 
10,142<shift»/<spatie>87 
2,105<shift>/éspatiedb2 
324shift>/{spatie>93 
32,210<shift>/{spatie>90 
32,210<shift>/<spatiedec 
3,144shift>/<spatie>fe 
34shiftd/Cspatiedf8 
324shift»/éspatie>fc 
33<shift»/<spatiedce 
3,201,157,208<shift>/{Xspatiede5 
15,200&shift>/{spatie>2e 
83éshiftd/{spatied2e 
62<shift>/<spatie>00 
80, 32, 85, 73éshift>/{spatie>38 
O<shift»>/éspatie>0c 
Oéshift>/{spatiedie 
Oshift>/<spatie>i4 
Olshift)>/<spatied62 
O<shift>/<spatie>78 
S 255,255,255,255<shift>/<spatie>76 
202116 thenprint"fout in dataregels": end<shift>/{spatiedae 
Sok"{shift>/{spatied68 


hem langer te maken — 1 to 
1000 bijvoorbeeld — wordt het 
effect langzamer. 


lig gesteld op respectievelijk 

$ OOfb-0Ofc en $ 0024-0025. 

De pointer die het eerste ele- 
ment aangeeft, wordt overgeno- 
men op locatie $ 0059-0060 en 
van hieruit worden steeds twee 
elementen vergeleken. Indien 
verwisseling niet nodig is, wordt 
een teller ($ 004f) met 1 ver- 
hoogd. Bij verwisseling wordt 
naar het derde deel van de rou- 
tine gesprongen. 

In het derde deel wordt eerst de 
pointer eerste string-eerste ele- 
ment op een vrije locatie gezet, 
waarvandaan het meeverwisselen 
plaatsvindt. Tevens wordt de 
off-set veilig gesteld (resp. $ 
005d-005e en $ 0059-005a). 
Daarna wordt de string teller op 
0 gecontroleerd. Indien deze tel- 
ler 0 aangeeft, als de eerste 
string gesorteerd werd, wordt 
een string overgeslagen en wordt 











EC 


de pointer naar de mee te ver- den teruggesprongen. Indien de beeld op een plaats in het ge- checksum-programma staat er 
wisselen elementen doorgeteld. string-teller niet O is, gebeurt in _heugengebied vanaf $c000 bijvoorbeeld ook — en daarom 
Daarna geeft de off-set en poin- feite hetzelfde, maar dan wordt (49152) worden gezet, zodat heeft Anton Houweling in dit 
ter de elementen van de overige de string-teller eerst afgeteld tot _ routine en Basic elkaar niet hin- geval gekozen voor $8000 
Array’s aan totdat de laatste ar- 0 voordat een array wordt over- deren. In het genoemde geheu- (32768). 

ray:is bereikt en naar het twee- geslagen. gengebied is het echter vaak een 

de deel van de routine kan wor- De sorteerroutine kan bijvoor- drukte van belang — ons 


SORTEERROUTINE 


10 rem Akuwukkkwknkkknknkkkkkkhkkkukkkshiftd>/ispatiedaf 

rem xéshift»/{<spatle>84 

rem sorteerroutine x<shift>/<spatie>95 

rem Ô x{shift>/<spatie»82 

rem ontwerp: *{shift>/{<spatiedfe 

rem anton houweling *<shiftd/<spatie>96 

rem coornhertstraat 3 k<shiftd/{spatie>f9 

rem 3521 xe utrecht Xx<shift»/<spatiedcf 

rem xCshift>/<spatie>9d 

rem AhAkAAAAAAAAAAA AAA kkk AAA AAA AKK CShiftd/<spatied>b6 

rem deze routine sorteert alphabetisch een bestand met een willekeurig aantal 
<shift>/<spatie>8d 
21 rem stringarray’s volgens navolgend programma-voorbeeld:<shift>/{spatiedbb 
22 rem 400 input“u kunt sorteren op(n,a,wì“ss${<shift>/{spatie>86 
23 vem 410 ifs$="n"thens$=ns(O):gotos0Oshift>/<spatiedbe 
24 rem 420 ifs$="a"thens$=a$(Od:gotos0OSshiftd/<spatie>b0 
25 rem 430 ifs$="Ww"thens$=w$COlSshift>/<spatie>ac 
26 rem 440 sys32768:print "bestand gesorteerd” <shift>/spatie>ca 
27 rem het bestand mag niet meer dan 255 adressen bevatten.{<shift>/{spatie>9i 
50 datal60,0,132,78,166,47<shift>/<spatie)927 
51 datal65,48,134,95,133,96{<shift>/{<spatieda6 
52 datal97,50,208,4,228,49<shift>/{<spatie>9da 
53 data240,31,160,0,177,95<shift>/<spatie>94 
54 data200,197,69,208,6,165<shift»/<spatie>a5 
55 data70,209,95,240,25,230<shift>/<spatie>a8 
56 data78,200,177,95,24, 101<shift>/<spatiedal 
57 data95,170,200,177,95,101<shiftd/<spatie>93 
58 data96,144,213,162,199,134Cshift>/4spatiedag 
59 data34,169,161,76,69,1644shift»>/{Sspatieda6 
60 data200,177,95,24,101,95{<shift>/<spatieba6 
61 datal70,200,177,95,101,96Cshift>/{éspatie»94. 
62 datal33,37,56,138,233,3<shift>/<spatie>9c 
63 data133,36,176,2,198,37{shift>/{spatied92 
64 data200,177,95,32,150,177<shift>»/{spatieded 
65 datal33,251,132,252,169,0{shift>/Xspatiede2 
66 datai33,63,133,79,133,2shift»/{spatiede5 
67 datal65,251,164,252,196,37<shift>/<spatie>d4 
68 data208,4,197,36,176,125{shift>/{<spatiedd9 
69 datal33,95,132,96,160,0<shift»/<spatiejef 
70 datali77,95,133,253,200,1774shift>/<spatie>d2 
71 data95,141,176,128,200,177<shift»/{<spatie>d8 
72 data95,141,177,128,200,177<shift>/<spatie>d6 
73 data95,133,254,200,177,95{shiftd/{spatiede7 
74 datal41,173,128,200,177,95<shift>/<spatie>d0 
75 datal41,174,128,24,165,2544shiftd/<spatiedde 
76 data208,1,56,166,253,240<shift>/<spatie>d8 
77 data25,176,23,197,253,176{shift>/<spatiedef 
78 data1,170,160,0,185,0<shift>/<spatieded 
79 data0,217,0,0,208,8<shift>/{spatie>e6 
80 data200,202,208,244,165,254{shift>/{spatiedf4 
81 datal97,253,176,57,162,3<shift>/<spatiedcl 
82 datal60,0,177,95,72,160<shift>/<spatie,f5 
83 data3,177,95,160,0,145{<shift»/{spatiedc5 
84 data95,104,160,3,145,95<shift>/<spatie)dfa 
85 data230,95,208,2,230,96{shift>/{éspatiedfl 
86 data202,208,229,32,252, 128shift>/<spatiedc5 
87 datal69,2,133,2,24,165{shiftd/{éspatiedc3 
88 data95,164,96,105,3,14d<shift>/<spatie> fl 
89 datal,200,76,106,128,165{shift>/{spatiedca 
90 data2,240,3,76,94,128<shift>/<spatie>f5 
91 data96,230,79,76,226,128Cshift>/{<spatiedc8 
92 datal65,47,105,7,133,93lshift»/{<spatiedfa 
93 data165,48,105,0,133,94shift>»/<spatie»f4 
94 data160,2,177,47,56,233shiftd/éspatiedf7 
95 data3,133,89,200,177,47{<shift>/{spatiedf3. 
96 datal70,176,1,202,134,90Cshift>/Cspatiedf7 
97 datai65,78,133,92,208,23<shift>/<spatie»f2 


\ 
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98 datal69,1,133,92,133,24shift>/Xspatiedfb 

99 data24, Een. 93,164,94,105{shift>/{spatie>f8 
100 data3,144,3,200,132,94Cshift»/Cspatie>£5 
101 datal33,93,76,113,129,166<shift>/{<spatie>c8 
102 data79,240,25,134,63,169%{shift»/{spatie>fb 
103 data0,24,105,3,144,2{shift>/<spatieùfa 

104 data230,94,202,208,246,134shift>/éspatie>f£7 
105 data79,24,101,93,144,24shift>»/Cspatie)f7 
106 data230,94,133,93,162,34shift>/<spatie>c4 
107 datal60,0,177,93,72,160{shift>/{spatie>ca 
108 data3,177,93,160,0,145{<shift>/{Xspatie>fc 
109 data93,104,160,3,145,934shift>/Cspatie>c3 
110 data230,93,208,2,230,94Xshift>/{spatiedce 
ilt data202,208,229,198,92,24<shift>/<spatiedce 
{12 datal65,89,101,93,133,934shift>/{spatieded 
113 datal65,20,101,94,133,94<shift>/Xspatiede4 
114 datal65,92,240,3,76,55<shift»/<Sspatiede0 
115 datal29,165,2,201,1,240<shift>/éspatle>d2 
116 data23,24,165,93,164,94déshiftd/{spatiedda 
117 data105,3,144,3,200,132éshift>/{<spatie>dd 
118 data94,133,93,169,1,133<shift>/<spatie>di 
119 data2,133,92,76,113,129<shift>»/<spatie>d8 
120 datal64,50,165,49,196,94lshift>/{spatieded 
121 data240,9,144,11,169,1{shift>/<spatiede7 
122 datal33,92,76,55,129,197<shift»/Xspatiedeb 
123 data93,176,245,24,165,63<shift>/{spatiedec 
124 datal05,2,133,79,96,53827{Xshift>/{<spatie>de 
125 a=327684shift>/<spatie>b6 

130 veadx:ifx<255thenpokea,x:t=ttx:ia=ati:gotol30{4shift>/{spatie>d8 
140 iftOxthenprint"fout in data”{shift>/{Xspatie>28 
141 end{<shift>/{spatie>Od 


CONVERSIE-PROGRAMMA 


Onderstaand programma is niet 
ingezonden door een lezer, maar 
geschreven door Commodore 
Dossier huisprogrammeur Roelf 
Sluman. We gebruiken het pro- 
gramma op de redactie om 
listings te ontdoen van de be- 
ruchte Commodore besturingste- 


en vergissingen en dus vervan- 
gen wij ze door middel van dit 
programma door character- 
strings. Het programma wordt 
besproken in de ’Handleiding 
bij de Listings’ (Commodore 
Dossier pagina 37) en naar aan- 
leiding daarvan vragen verschil 


wel, hoewel we nog even duide- 
lijk willen stellen dat inzendin- 
gen van lezers best voorzien 
mogen zijn van besturingste- 
kens, die halen we er wel uit. 
Het programma kan ook wor- 
den gebruikt voor het prepare- 
ren van listings die moeten wor- 


Commodore niet op het reper- 


toire heeft. 

Het programma — dat om tech- 
nische redenen niet van een con- 
trolegetal is voorzien — is erg 
eenvoudig te gebruiken omdat 
het zijn instructies steeds in 
beeld brengt. 


den uitgedraaid op een printer 
die de besturingstekens van 


lende lezers of we het niet wil- 
len publiceren. Dat willen we 


kens. Die symbolen zijn vaak de 
oorzaak van onduidelijkheden 


10 rem XXX list converter voor cbm 64 
20 poke53280,0:poke53281,O:printchr$(8):gosub6 40 

30 gosub650:gosub7 10 

40 printchr$C17)3 

50 printchr$(155) “programmanaam (*chr$(1i29)"$=directory) "chr$(30);:inputprs 
60 ifpr$="$"thengosubi080:goto30 

10 openl,8,19, Oil 

80 open3,8,3,°0:"+pr$ 

30 gosub78O:iffo=tthen30 

„100 open2,8,2, "O:[“+prst”l,pow” 
110 iffo=2thenclose2:gotof00 
„120 gosub650:rprintehrsCi7)dechrsti7echrsti7)chrsC153)” dit kan even duren.. 
130 get#3,a$:print#2,afi:get#3,as:print#2,af; 

140 11=0 

150 a$="":get#3,a$:rez=st 

160 ifli=Othenli=i:goto230 

170 ifli=lithenli=2:goto230 

180 ifli=2thenli=3:lo=ascla$tchr$(Od): ao 

190 iflis>3then220 

200 li=4:hizascla$tchr$(O)l):printchr$C19)s:fort=ltolOrprint:inext 

210 printehr$(150dlothix256:goto230 

220 gosub460 

230 ifasclaftchr$(0)d=Othena$=chr$C0} 

240 ifnas= Othenprint#2,as 5 

250 na=0 

260 lfre=Othen150 

270 gosub780:close3:close2:closel 

280 gosub650: printehrs(l7)dchreli7dchrs$(158) conversie gereed; " chré153)” geen er 
LOOPS. j 
290 printchr$(17)chr$(1509"U Kunt nu 


:gosub780:iffo=lthen30 


"chrs(154)"[*+prs+"1 “chr$C150)”"laden” 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
200 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 





PCS 





ISTING 
printfen uitprinten.” 


printchrs(17)dchr$(17dchrs 30) 

printchr$(18)"fl"chr$(146)" laden van ["+tprs$+”l” 
printchr$(18)°f7"chr$(146)" nog een programma converteren” 
printchr$(18)"f8"chr$(146)” stoppen” 

poke 198,0 
getqs:ifgschrs(133landgsdechrsl136landastdechrs(140)then360 
ifgs=chr$(136)then30 

ifg$=chr$(14dO)thenprint "zeker weten? (j/n)'s:goto400 

goto430 

poke198,0 

getas:ifas ”j'andgs{<)"n"then410 

printchr$(147):sys64760 

printchr$(147)"load "+chr$(34)4+"["+pr$+"1'tchr$(34)4+",8" 

poke 631,19:poke632,13:pokel98,2 

end 

rem subroutine die tekens afhandelt 
ifasc{agtchr$(0)d=Othenfi=0:f2=0:1li=0: af=chrs0): return 
Oe f3+l:goto600 

£3=0 

iffl=Othenreturn 

x={ 

ifasclaf)holx)then540 

a$=chr$(199) +" ("+rightsCstrslolzdd, Clentstrs lola 19+") ":goto560 
x=xti:ifx<35then520 

goto580 

Iff2=Othenreturn 

print#2,chr#(34)i:f2=0:return 

iff2>Othenreturn 

erint#2,chr$C34ds:f2=lsreturn 
iff3=2thenprint#2,chr$(34dichr$(34)is:ina=lifi=0:f2=0rfZ=0Orna=iireturn 
iffi=Othenfi=t:f2=0:na=lsreturn 

iff2=ithenf1=0:f2=0:sreturn 

fli=O:na=l:return 
dimoC34)sforx=lto34sreadxx:oCxd=xxinext:fl=0:rf=0:fl=0:f2-0:f3=0:return 
poke53272,23 

printchr$(i47) 5 

printchrs(158)dchr$li7dechr$17)” kkkk LISTINGSCONVERTER V 1.1 k&x 
print chr$(154dchr$l17)" (ce) 1984 “chr$(129)"Roelf Sluman” 

return 

stop d 

printchr$(1i7)dchr$(i7dchr$(30)"Plaats diskette met het te converteren 
print"programma in de disk drive” 

printchr$C17)chr$t17)chrs 150) "druk daarna. op “chr$(18)"RETURN*chr$(146) 
poke198,0 

getg%: ifq$=""then750 

ifq$<>chr&l13)then750 

return 

gosubi070:ifel=Othenfo=0:return 

printchr$(154) 

ifei=63theni040 

ifel=25then930 

ifel=72then960 

ifel=74dthen1000 

ifei=62theni020 





850 : 


860 
870 
880 
830 
900 
910 
920 
930 
940 
950 
960 
970 
980 
930 


printchr$(5)"sorry,... aktie afgebroken 
print“disk error“el 
printe2$:printe3,eá4:close3:close2:lclosei:fo=l 
printcehr$(t7)chr$150)*druk op "chr$(18) "RETURN" :poke 198,0 
getq$:ifg$=""then900 

ifqs<dchrsCt3)then900 

return 

printchr$(17)”schijf is beschermd tegen schrijven” 
print"verwijder plakkertje s.v.p.* 

goto860 

print'diskette is vols plaats het te” 

print”listen programma op een andere schijf” 
print”en probeer opnieuw.” 

goto860 


1000 print”schijf niet op correcte wijze geplaatst” 


1010 
1020 


goto860 
print”gevraagde programma staat niet” 


1030 print”op deze diskette":goto860 

1040 printchr$(t7)chr$(5)"oude conversie-file wordt gewist...” 
1050 print#l,"s:[*tpr$+" 17 

1060 fo=2sreturn 

1070 input#li,el,e2$,e3,ed:sreturn 





1080 






open15,8,15,"i":openi,8,2,"&" 
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[S MIS VAM IEZE, 


1090 forz=itold4l:get#l,as:next 

1100 t$CO)="del:t$Cij="seg":t$C2I=prg ts tusrstsC4d="relt 
1110 j=17:gosubl370 

1120 n$=b$ 

1130 j=2 

1140 gosubl370 

1150 i$=b$ 

1160 get#l,a8 

1170 j=2 

1180 gosubi370 

1190 o$=b$ 

1200 forl=ito88 

1210 get#l,as 

1220 next 

1230 printchr$(147)chr$(158)"disk-naam:"n$,"id:"i$,chr$(154d"os: "os 
1240 printchr$(5)"lengte","type",”naamchr$(30) 

1250 forp=lito8 

1260 get#l,t$,af,as 

1270 ift$=""thent&=chr$C128) 

1280 j=15 

1290 gosub1i370 

1300 n$=b$ 

1310 get#l,af,as,as,af,assas,as,at,as,ls,;hs 

1320 l=asc{l&+chr$(0O))+256kascth$tchr$(0)):ifl=Othen1360 

1330 ifstthenclosel:closel5:gotol41i0 

1340 printl,t$(asc(t$)-128),n$ 

1350 ifp{Sthenget#i,a$,a$ 

1360 nextp:gotol250 . 

1370 b$="":forl=0toj:get#l,as 

1380 ifa$dchr$(I6)thenifastdchrs(160dthenbs=b$tas 

1390 next 

1400 return , 

1410 printchr$(17)dchr$(150)* druk op “chr$(18)"RETURN" 
1420 poke198,0 

1430 getq$:ifg$=""theni430 

1440 ifgs=chr$CiJthenreturn 

1459 gotol430 

1460 data 5,17,18,19,20,28,29,30,31,129,133,134,135,136,137,138,139,140,144; 145 
1470 data 146,147,148,149,150,151,152,153,154,155,156,157,158,159 
ready. 

LOTTO 

De heer Barendrecht uit Maas- dat de liefhebbers kan helpen formulier. De heer Barendrecht gramma niet het gewenste resul- 
dam stuurde een programmaatje bij het invullen van het lotto- is niet aansprakelijk als het pro- taat oplevert. 
LOTTO 

10 printchr$(147)chr$(150dtabl16)s{<shift>/{<spatie>23 

20 printchr#(18)" lotto “{shiftd/{spatied0e 

30 rem voor het printen van de titeléshift>/{spatied8e 


40 p 
5or 


rint:sprint:printchr$(5)<shift>/<spatie>42 
em voor witte tekensXshiftd/{spatiede0 


60 print“hoeveel kolommen wilt u“s<shiftd/{spatie>b9 


70 i 
80 r 
90 £ 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


nputk:sprint{<shiftd/{spatie>2b 

em invoeren aantal Kolommenéshift>/{<spatiedc6 
ort=ito késhiftd/<spatiede3 

rem voor aantal kolommen{éshift>/{spatiedf4 
forn=ito64shift»/{<spatie>b0 

rem voor zes getallen{shiftd/{spatieda3 
g{n)d=int(rndt0dk4di+tidCshift>/<spatied34 

rem aantal getallen van 1 tot 4i<shift>/{spatie>2a 
form=itonéshiftd/<spatied33 
ifgn)=gmdandn<dmtheni30<shift>/<spatiedal 

rem geem dubbele getallenéshiftd/{spatiedbe 
nextmsnextn<shift>»/{<spatie>8d 
forn=Oto4:form=itoBenéshiftd/{spatied62 
ifgm<glmtidthen220<shift>»/<spatie»fc 
a=gmtidsglmtid=glmigtm=atshiftd/<spatie>60 
nextmsnextnéshift»/{spatiede5 

rem voor het sorteren van de getallen<shift»>/<spatie>76 
forn=ito6{shiftd/{spatied24 d 
printtab{3t4xn)gn)s <shift»/<spatie>Ga 

rem print het getal4shift»/{spatiedd3 
nextnsprintsprint<shift»/<spatie»ds 
nextt:printchr$(158)s<shift>/<spatie>97 

ren voor de volgende koloméshiftd/{spatiedf5 
print”gebruik voor een volgende “;{<shift>/<spatied82 
print”serie toets fl*{shiftd/Cspatiedbe 
getg$:ifgs<>chrsC133)then330<shift»/<spatie>39 
run<shiftd/{spatieddf 
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dichtst bij die waarde ligt. 

Het programma REKENEN van 
dezelfde auteur oefent de hersens 
met hoofdrekenen. De computer 
genereert een reeks van willekeurig 
gekozen getallen en een willekeurig 
getal tussen de 1000 en de 4000. 
Met optellen, aftrekken, verme- 
nigvuldigen en delen van de eerste 
reeks getallen dient men zo dicht 
mogelijk in de buurt van het tweede 
getal te komen. De Vic geeft na elke 
bewerking het percentage, en de 
bedoeling is natuurlijk om dicht bij 
de 100% te komen. 


kundige functies te verwerken 
krijgen en snel de nulpunten (of 
wortels) van deze functies wen- 
sen te kennen. Een onoverko- 
melijk nadeel van het program- 
ma is dat je telkens de betref- 
fende functie in het programma 
zelf moet intikken, de Vic 
neemt namelijk geen functies op 
bij een input-instructie. Als 
voorbeeld heeft Christiaan een 
sinus-functie genomen (regel 
20). De computer geeft eerst 
een willekeurige waarde X1 en 
geeft dan het nulpunt dat het 


FUNCTIES EN REKENEN 

Verheugend veel inzendingen gegaan om dat programma voor 
voor de Vic-20 komen op de re- elkaar te krijgen, De heren zijn 
dactie binnen. Vic-20 bezitters in het laatste test-stadium, dus 
zijn blijkbaar van opvatting dat dat kan niet al te lang meer du- 
ze zichzelf maar moeten helpen _ ren. In dit nummer zijn de Vic- 
als niemand anders het doet. listings helaas dus nog zonder. 
Overigens hebben Vic-20 bezit- Toch willen we ze u niet ont- 
ters nog steeds een controlepro- houden. 

gramma van ons tegoed. Nu en Het programma FUNCTIES 
dan belt iemand op om te vra- werd ingezonden door Christi- 
gen waar het blijft. Inmiddels aan De Clercq uit Lovendegem 
kunnen we melden dat de heer in België. Het programma is 
Van Lith uit Ingen met onze vooral bestemd, schrijft hij, 
programma-redactie in de slag is voor studenten die allerlei wis- 


FUNKTIES OP VIC 20 620 forn=2to20step2 print:print:print" 100 %Sbravo!!t!® 


10 
20 
30 
40 
50 
60 
70 
80 
90 


inputxi 
deffnalx)=sin(x) 
y=fnalxi) 

dx=10e-6 
fx=Cfnalxl+dx)-y)/dx 
ZX=y/ÊX 

xO=xXl=zZi 
printxO:xi=x0 
goto30 


100 end 


REKENEN VIC 20 


1 printchr$(5) 

2 printchr$(147) 

3 poke36879,8 

4 forx=ltol2:print:next 
5 v=2:p=0:l=2 


10 
20 
30 
40 
50 


dimaC20) 
dimce(20) 
forn=ito20 
a{n)=int(rndeidxIt1d 
nextn 
forn=tto20 
c{n)=saln)+48 
z=aCi) 
nextn 
x=int(rnd(1t)X3000+1000) 
forn=lto20 
poke7680+n,99 
poke7768+n, 100 
nextn 
poke7680,79 
poke7701,80 
poke7768,76 
poke7789,122 
forn=ito4 
poke78124+n,99 
poke7828+n,99 
poke7856+n, 100 
poke7872+n, 100 
nextn 
poke7812,79 
poke7817,80 
poke7856,76 
poke7861,122 
poke7828,79 
poke7833,80 
poke7872,76 
z=ali) 
poke7877,122 
forn=Oto44step22 
poke77024n, 101 
poke7723+n, 103 
nextn 
poke7834, 101 
poke7839, 103 
poke7850, 101 
poke7855, 103 
poke7846, 37 


630 
650 
660 
670 
671 
675 
676 
677 
678 
679 
680 
681 
682 
683 
697 
700 
702 
705 
710 
715 
J17 
119 
720 
129 
730 
1000 
1020 
1040 
1050 
1055 
1056 
1060 
1070 
1080 
1100 
1110 
1115 
1120 
2000 
2020 
2040 
2050 
2055 
2056 
2060 
2070 
2080 
2100 
2110 
2115 
2120 
3000 
3020 
3040 
3050 
3055 
3056 
3060 
3070 
3080 
3100 
3110 
sIl5 
3120 
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poke77Ol+n,eln/2) 
nextn 
forn=22to4ôstep2 
poke7725tn,cln/2) 
nextn 
K$=str$Clx) 
xi$=mid$Cx$,2, 1) 
K2s=mids rs, 3, 1D 
x3f=midsCr$, 4, 1) 
xds$=right$Cx$, 1D) 
poke7835,asclx1#) 
poke7836,asc(r28) 
poke7837,asc({x3$) 
poke7838,asc{x4s) 
poke7834, 101 
ifp=10O0then5000 
poke7900, 43 
poke7901,44 
poke7902,45 
poke7903, 44 
poke7904, 42 
poke7906,63 
inputa® E 
ifa$="-"then2000 
ifa$="k"then3000 
ifv=2lthen6000 
z=zZtalv) 
p=(zx100)/x 
ip=int{p) 
gosub9051 
gosub9056 
ifl=22thenl=46 
ifl=64then6000 
poke7702+1l,43 
l=lt+2 
vevtl 
printchr$(145)chrs(145) 
goto700 
ifv=2ithen6000 
z=z-alv) 
p=(zk100)/x 
ip=int(p) 
gosub9051 
gosub9056 
ifl=22thenl=46 
ifl=64then6000 
poke7702+1,45 
l=l+2 
v=vti 
printechr$Ci45)cehrsC1i45) 
goto700 
ifv=2ithen6000 
Z=Zkalv) 
p=(z«l00)/x 
ip=int(p) 
gosub9051 
gosub9056 
ifl=22thenl=46: 
ifl=64then6000 
poke7702+1,86 
1=1+2 
vavtl ; 
printchr$(145)chr$&(145) 
goto700 





:poke36879,110 
forp=Otol0O:nextp 
poke36879,8 : 

end 
print:print:print”procent="5p5 "5" 
end 

print”veel te hoog!!!":end 
ip$=str$(ip) 
ils=midsCips$,2,1) 
poke7843,asclils) 
return 

ip$=str$(ip) 
il$=mid$Cip$, 2,1) 
i2$=mid$Clip$,3, 1) 
poke7842,asclils) 
poke7843,asc{i28) 
poke7844, 32 

return 

ips=str$Cip) 
ilS=mid8lip$,2, 1) 
i2$=mid&Cip$,3, 1) 
i3$=right$Cip$, 1) 
poke7842,asclils) 
poke7843,asc{ 128) 
poke7844,asc(138) 
return 

z$=str$ Cz) 
zi$=mid$(z$,2,1) 
poke785l,asctzis) 
return 

z$=str$Cz) 
zig=mids(z$,2, 1D 
z2s=right$(z8, 1) 
poke785l,asc(zis) 
poke7852,asc(z28) 
return 

z$=str$(z) 
zig=mid${(z$,2, 1) 
z2s=midsz$,3, 1) 
z3$=right$(2z$, 1) 
poke785t,asc{zls) 
poke7852,asc(z2s) 
poke7853,asc(z35) 
return 

z&=str$Cz) 
zi$=mid$(2$,2, 1) 
z2$=mids2$,3, 1) 
z3$=mid$(2z$,4, 1D 
z4g=right$(z$,1) 
poke7851l,asc(zis) 
poke7852,asc{z2s) 
poke7853,asc{z3$) 
poke7854,asc{z4s) 
return 

if ip{iOthengosub7000 
if ipblOand ip{iOÔthengosub7500 
if ip>99andip<i00Othengosub7700 
1flp>1000then6500 
return 
ifz<iOthengosub8000 
ifzdJandzél0Othengosub8500 
ifz>1000andzl0000thengosub8800 
ifz>999Ithen65O0O 
return 
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GROTE LETTERS OP DE VIG 

Extra grote letters hebben blijk- wijzigingen worden aange- 

baar een grote aantrekkings- bracht. 
kracht op Vic-bezitters. Ver- In regel 1270: IFPEEK (36869) 
schillende lezers stuurden ons = 194 

programma’s op die dergelijke _ In regel 1300: PO = PEEK 
letters kunnen maken. We (4338 + H) E 
moesten dus kiezen en plaatsen Het programma kent een beper- 
het programma van Jurgen De- king van 10 letters, daar elke 
cloedt, dat de extra grote letters letter 8 posities in beslag neemt 


geta$:ifas="j"then ilS$s=chr$C18)" 
“chrsCi46):i2se" * 
ifas="n"then ils=" 
Schr$(146) 
ifils=""thenlt140 
eprint:print:print;print 

print tekst : "chr$(146) “max. 
print:sprint:sprint 

kl=0 À 
getz$:ifz$=""theni210 
ifasc(z$)>132andasc(z$)Ci4itheni210 
ifasc{z$)=l3orlen(x$)>=lOthenl270 


“1128=chr$C18)". 


10 tek. 


kan laten afdrukken op een_ 
MPS-801 matrix-printer. Wan- 
neer zijn programma wordt ge- 
bruikt voor de Vic met 16K uit- 


en er op een MPS-801 slechts 80 
mogelijk printposities zijn. Het 
programma gebruikt 1969 bytes 
van de 3585, hetgeen overeen- 


ifasc(z$)=20thenx$=lefts(x$, 
len(x$)=-id:printz$i:gotoi210 


KS=K$+Z$rprintzss 
gotol210 


print:ifpeek(36869)=242thenkl=2048 
foru=lito8 
forh=Otolen(x$)=-1 


breiding, moeten de volgende komt met 2K. 


GROTE LETTERS 


100 
110 
120 
130 
140 
150 
160 
170 


Lemken kenden deken slenken lek ole oe ke olle ohoh le hsl ke ve 
remk * 
remkafdrukken van grote Karaktersx* 
remkop een mps-801l matrix=printerx 
remk X 
remk voor een standaard vic20 % 
rem * 
pemkkkkkkhhk kik h ihk kh RARA RAAKA KK 
180 rem 

190 rem 

1100 openi,4 

1110 print#t,‚chr$(15) 

1120 printchr$C147) 


1130 priat'rvs on 2? [i,ult 
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Abonnees van Commodore Dossier Aktief kunnen in deze ru- 
briek kosteloos een advertentie plaatsen. De service is uit- 
sluitend bedoeld voor particulieren. Puur commerciële adver- 
tenties en aanbiedingen van illegale programmatuur worden 
geweigerd. De redactie is niet verantwoordelijk voor fouten 


als gevolg van onduidelijke opgave. 
Een advertentie mag ten hoogste 7 regels van 25 aanslagen 


lang zijn. 


IK BIED HARDWARE AAN 

@ Module voor 64: tapeturbo + disktur- 
bo + toolkit (22 comm.) + mt-monitor 
(26 comm), autostart, reset, voorgepr. 
func.toetsen f 67,50. Jan Schuurman, 
Tel, 01803-13150, E 

® CBM-64 + programma's + joystick. 
Prijs f 800,-. Tel. 9023-376126. 

@ C64 + datarec. + joyst. + diskdrive 
154 + printer GP-100VC + softw: 
Pascal64 comp.+ textomat + database 


etc. Prijs f 1800,-. Tel. 03475-1448. On- 


geveer half jaar oud, weinig gebruikt. 
® Atari BO0XL + drive 1050 + 
cass.rec. + boeken + veel software. 


Tel. 078-1581471. 

© Commodore 1520 printer-plotter, 3 
maanden oud. Prijs: 4000 Bfr, (f 225,-) 
C. de Clerq, Beekstraat 26, 9920 Loven- 
degem (België), Tel. 091-7268614. 

© Commadore C-16, splinternieuw start- 
pakket met rec. handl. en progr. Gewon- 
nen op de HILBO tentoonstelfing in mei te 
Mill. Heb zelf C64. Ben Wijnen, Ha- 
vikstraat 31, Mill, Tel. 08859-2380. 

® VIC-20 + 24k + 5 slotexpansie + 


„ datarec. + plusminus 40 progr. o.a. Su- 


perexpander, Choplitter, Superman, Word- 
craft enz. + uitgebreide documentatie. 
Tel. 02502-85393 (na 16.00 uur). 


po=peek(7922+h) 
esn” 


x=peek(32768tpox8tu-ltkld 


forl=lto8 
Wex/2iws=x/2 


ifw=wsthenes=il$tes:gotoi380 


es=i2$tes 
ifw<ithenws=128 
xewbs:nextl 
zis=zistes 
nexth 


print#l,chr$(15)zischrs(8):zig="" 


nextu 


print:print:print:print”"nogmaals ? 


Ejonl 


geta$:ifa$="j"thenrun 


ifas<>n"thenl440 


end 


© VIC-20 + 16k + Quick 20 in Eprom 
+ 64k + 2 slot moederbord, diverse — 
boeken, Ned. cursus Basie + 2 bandjes, 
veel spel-toolkitsprog. bijv. 40K- 
tekstverw.exb, level Il + casset.1000, 
Tel. 02520-29307. 

@ Te koop C-16 + cass.rec. inclusief 2 


boeken + tijdschriften + enkele program- 


ma's, prijs f 450,- na 18.00 uur. Tel. 
043-617128. C, Nijpels, Atoomstraat 13, 
Maastricht. 

© SX64 + 1541 + HRS printer + 2 
joysticks + turbo/diskloader + veel pro- 
gramma's, f 3250,-, na 1800 uur. Tel. 
030-445714. 


® Intellevision spelcomputer met 10 cas- 
settes. Zeer goed beeld en geluid. f 250,- 
of in te ruilen tegen KTV of RGB-monitor. 


Tel. 04977-2588. 

® Disk-hulpcartridge (snellader + toolkit 
disk) f 50,-, Viditelinterfacekabel f 40, 
Hans Wassink. Tel 055-218456 na 
18.00 uur. 

® Seikosha GP 100 VC printer voor 
CBM-64. 10 maanden oud. A. Langk- 
mans, Vooruitgangstraat 2, 1770 Lieder- 
kerke, Brabant (België). 

© MPS-802 printer + reserve lint + 
stofkap, teab. bellen na 18.00 u. B.A. 
Fortuin, Tel. 01828-13367. 





GOMMODORE DOSSIER AKTIEF 17 


el 


® C16-com. + luxe stofkap + rec.+ 
hoes. C16-joystick + joystickinterface + 
3 boeken + veel software o.a. Pacm., 

f 5,-, tekstv. enz. vrpr. f 500,-. Tel. 
070-852873 na 16.00 uur. 

® TKA-comm-printer 803 incl. tractor- 
feed vrpr. f 500,- + casetterec. f 50, 
GC. v. Beek, Woestduinlaan 50, Doorn. Tel. 
03430-13055 (na 18.00 uur). 

© CBM-64 + cass. + software (o.a. Si- 
mon’s Basic) + boeken (o.a. ref. guide, 
beschrijving Simon’s Basic). Tel. 
045-7125052. 

© VIC-20 + switchable 16K geheuge- 
nuitbreiding. Veel software f 200, Tel, 
01650-40104. 


IK BIED SOFTWARE AAN 

© Commodore 64 programma’s tekstver- 
werking, spel en Pascal-compiler. Kees 
van de Geer, 040-8653230 na 18.00 uur. 
Gezocht coördinaten programma’s voor 
ENC Machines. 

® C-64 loon- en loonkosten ber.prof. op 
cassette bruto-netto/netto-bruto, witte ta- 
bel prijs f 29,-. J. Huisman, Lancasterdr. 
12, Dronten. Tel. 03210-5273. Giro 
4929131. 





GEBROEDERLIJK ZEGT NEDERLAND 
VOLMONDIG JA TEGEN DE HR-5. 
































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Lof en hulde. Zo luidt het algemene oordeel over de 
Brother HR-5. Daar is natuurlijk een reden voor. Tien redenen 
zelfs, als u ze op Uw vingers natelt. Ten eerste is het een dot 
matrix printer waar u de afzonderlijke puntjes niet of nauwelijks 
aan af ziet. Ten tweede print de HR-5 zowel op normaal papier 
als op thermisch papier. Ten derde is het formaat zo klein 
gehouden dat de HR-5 samen met een personal computer in 
een attachékoffer past. Ten vierde is het gewicht maar 1.75 kg. 
Van vijf tot tien volgt dan nog de werking ook op batterij, 80 
tekens per regel, de broederschap met bijna alle computer 
types, RS 232 GC, centronics parallel of Commodore versie, de 
gave uitprint van grafieken, de printsnelheid van 30 tekens per 
sekonde en de fluisterstilte onder het printen. Carboncassette voor normaal papier. 

Zoveel kompleetheid in zo’n klein maatje, dat blijkt nn 


overal onverdeeld goed te vallen. Vraag 
de dokumentatie aan op onderstaand 











adres. Adviesprijs f 695,- ex, btw. BROTHER INDUSTRIES LTD, NAGOYA/JAPAN 
DAAR. EEE eoaswu Î 
BO N: = Ik wil meer informatie over de HR-S. 

Naam: 

Adres: 

Postcode: —___________…— Plaats: 








Opsturen naar: Brother International (Nederland) BV. Postbus 600, 1180 AP Amstelveen. EEn À 
Kn J Battery powered en netvoeding. 


Brother International (Nederland) BV, 
Zanderij 25-27, 1185 ZM Amstelveen. Telefoon 020-474471* 


Brother Industries Ltd. Nagoya, Japan. 








Ee UITBREIDINGSMODULEN VOOR UW 
| | COMMODORE 64 


P006 KCS TAPE-QUEEN 64 
AFGELOPEN! die LANGE WACHTTIJDEN, 


P001 KCS TAPE Speedsaver 64. 
Uw HULP bij het programmeren in BASIC! 






BESCHIKBARE kommando'’s: voor het lezen en schrijven van DATA-FILES. 
‘LO HELP TRACE DELETE COPY RENUMBER 7 
SA AUTO FIND UNNEW _ DUMP CENTRONICS Vanaf nu schrijft en leest U een bestand met zeer grote 


snelheid naar en van cassette! Een NIEUWE benadering 
van snel cassettewerk en andere manieren van 
gegevensopslag wordt u aangeboden met de KCS TAPE-QUEEN 64. module. 


— 26 BASIC-KEYWOORDEN. — TAPE-QUEEN 64 is de snelste op het gebied van DATA-overdracht! 
— Parallel/cntronics printer software. — Zeer snel lezen en schrijven van DATA-FILES in het GEHEUGEN" (2). Eenvoudig 


— 10 Xx Sneller laden, saven, verifyen en appenden met cassette te gebruiken voor de overdracht van gegevens tussen TWEE na elkaar uit te 
— Verkorte DISK-DOS + Copy-Otility. do voeren BASIC programma's. Mogelijkheid om TWEE bestanden tegelijkertijd in de 


*SA* HEX: APPEND KEYOFF SKEY STOPLIST 
VER DEC: DEVICE REPEAT KILL 
— 16 Voorgeprogrammeerde FUNKTIE-TOETSEN (!) 





computer op te slaan, waarvan 1 bestand BUITEN de BASIC-ruimte wordt 
opgeslagen (UNIEK!) 

— Ruim 10 maal SNELLER laden, saven en verifyen van BASIC- en MACHINETAAL 
programma's. Kan ook vanuit programma’s, omdat we NIEUWE devices 
benutten. (voorbeeld: LOAD "naam”, 7 of LOAD ”naam”,14). 

— Een TAPE-DIRECTORY system, om uw programma'’s/files op te slaan en deze 
ook zonder bandteller weer zeer snel terug te vinden. (ldeaal voor SCHOLEN!) 

— Acht voorgeprogrammeerde funktie-toetsen, alsmede de mogelijkheid om ze 


P002 KCS Speedmon 64. 

SPEEDMON 64 is een uitgebreide 

Machinetaalmonitor/Assembler. 

Wilt U MACHINETAAL programmeren, dan is deze module onmisbaar. 
BESCHIKBARE kommando'’s: 

ASCII TEKST ASSEMBLER DECIMAAL naar HEX HEX naar DECIMAAL 





ASSEMBLER BREAK SET COMPARE MEMORY Ë et 

DISASSEMBLER EXAMINE MEMORY FILL MEMORY zelf eenvoudig te herdefiniëren. (Maatwerk). 

GO RUN HUNT MEMORY INTERROGATE MEMORY — SUPER-COPY, waarmee het mogelijk is programma's (max 45K) te kopiëren. 
— Zeer mooie PRINTER-routine! 

JUMP NAAR SUBROUTINE LOAD FROM DEVICE MASK SET 4 5 

NEW LOCATE OUTPUT ENABLE bede ENABLE U kunt nu op de USER-PORT aangesloten CENTRONICS- en de SERIELE printers 

QUICK TRACE REGISTER DISPLAY SAVE naar DEVICE op de normale manier vanuit BASIC aansturen. (Eventueel samen). 

TRANSFER MEMORY VERIFY MEMORY WALK MODE Hierbij worden CONTROL- en GRAFISCHE characters, als u dat wenst vertaald in 

EXIT MONITOR VERKORTE DISK-DOS decimale getallen. Eindelijk een ”Duidelijke” BASIC-listing op uw printer! 

HOE SNEL IS TAPE-QUEEN? 

P003 KCS TAPE Speedsaver 64 COMBI. In onderstaande matrix kunt u zien hoelang het duurt om een DATA-file weg te 

Dit is een Combinatie van Speedmon 64 en schrijven of in te lezen. In de matrix is aangegeven: RN 

TAPE Speedsaver 64 op een module. a. De grootte van de file uitgedrukt in KBytes. 

Nadere specificaties vindt u bij de modulen POOT en Poo2. b. De wijze waarop de file is weggeschreven of ingelezen. 


c. De tijd uitgedrukt in seconden (afgerond op gehele getallen). 


P004 KCS DISK Speedloader 64 De tijd is gemeten na het openen van de file. 

EINDELIJKis hij er de ideale uitbreidings-module voor Commodore TAPE-QUEEN gebruikt een lange 'Leader’ (is betrouwbaarder). 

64 bezitters die werken met een CBM DISKDRIVE type 1541: 

bedden Data-file KCS Normaal met Normaal met 





— 5 à 6 maal SNELLER (!!!) programma's laden vanaf disk. 








SUPERTOOLKIT kommando’s: Grootte: na Recorder Diskdrive 

HELP TRACE DELETE COPY RENUMBER 

AUTO FIND UNNEW DUMP 

BEEP COLOR KEYOFF SKEY/6 Ee jaan 2 en 
. 4 K 39 sec 191 sec 61 sec 

DEC: HEX: REPEAT KILL 

— 16 Voorgeprogrammeerde FUNKTIE-TOETSEN (!) BK TT S&G nn Japsen 

ì 16 K 152 sec 765 sec 239 sec 


— 26 BASIC-KEYWOORDEN en Verkorte DISK-DOS. 








P005 KCS DISK Speedloader 64 COMBI. TAPE-QUEEN is dus de snelste op het gebied van DATA-files!!! 


Dit is een combinatie van Speedmon 64 en 
DISK Speedloader 64 op een module. 
Nadere specificaties vindt u bij de modulen P002 en POO4. 


K001 KCS Centronics Printerkabel. 
M.b.v. deze kabel kunt u de meeste parallel/centronics 








K002 KCS Moduulkastje. 


Kunststof behuizing, geschikt voor ALLE OUDERE KCS modulen! Uitsparingen 
voor Led en schakelaars aanwezig. 


printers aansturen. (O.a. Epson, STAR, AVT, CP-80 enz.……) 


Voor alle KGS Modulen geldt: 

x Er wordt geen Basic geheugen in beslag genomen. 
* Uitgebreide nederlandse handleiding. 

x Volledig getest. a 
x Gebruiksvriendelijk d.m.v. een help menu op het scherm. OOK IN BELGIE VERKRIJGBAAR!!! 

Informatie en DEALER-aanvragen bij: 

CONNECTION N.V. Tabakvest 120 - 2000 ANTWERPEN 

Tel: 03-225.22.26/28. Voor particulieren dealerlijst beschikbaar. 


ONZE PRODUKTEN ZIJN VERKRIJGBAAR BĲ: 
DE MEESTE COMMODORE-DEALERS. 





x Voorzien van RESET, AAN/UIT schakelaar, Indicatie Led en 
kunststof behuizing!!! 





* Wijzigingen voorbehouden 








Heeft u geen dealer in uw omgeving, dan kunt u ook bestellen door overmaking van het bedrag 
plus f 5,- verzendkosten of onder rembours. Bank: Amro 44.08.04.558. Postgiro: 3793232 
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ommodore Dossier roept zijn lezers op mee 

te doen aan een voor Nederland unieke 

verkiezing van het beste Commodore 
programma in het jaar 1985. U als lezer van 
Commodore Dossier bent als geen ander op de 
hoogte. Of dit programma nu kan worden gebruikt 
voor hobby dan wel zakelijke doeleinden, voor 
administratieve dan wel reken- en ontwerp- 
werkzaamheden, laat uw stem horen en draag uw 
favoriete software naar voren, Aan de hand van uw 
nominatie zal een deskundige jury het Commodore 
programma selecteren. Tijdens een feestelijke 
bijeenkomst zal op woensdagavond 9 oktober de 
naam van het winnende programma bekend worden 
gemaakt. Lezers, die deelnemen aan deze verkiezing, 
maken kans op een gratis homecomputer en een 
uitnodiging voor de feestelijke uitreiking. 


Voor iedereen een 
microcomputer? 


e ontwikkelingen op het terrein 
van de elektronica hebben een 
computer tot een betaalbaar 
‘goed’ gemaakt. Niet alleen 
bedrijven kunnen zich veroor- 
loven er een aan te schaffen, 
ook voor particulieren is er hetzij voor 
zakelijke hetzij voor hobby doeleinden een 
computersysteem beschikbaar. Zoals U 
ongetwijfeld reeds zelf hebt ervaren hangt 
het toepassingsnut van een micro- 
computer nauw samen met de kwaliteit 
van de verkrijgbare programmatuur. Het 
aanbod van deze software produkten met 
name voor de Commodore homecomputer 





is in de afgelopen jaren enorm toegenomen. 


De praktijk leert ons, dat produkten niet 
altijd uitwisselbaar zijn. De door een 
bepaald programma aangemaakte 


bestanden zijn niet gemakkelijk of 
helemaal niet te gebruiken in een ander 
programma. Bovendien bestaan er tussen 
de diverse leverbare software-produkten 
nogal wat verschillen in kwaliteit. 


De VNU, uitgever van Commodore Dossier 
en andere toonaangevende (computer) 
tijdschriften, wil de verschillen tussen de 
diverse aanbiedingen van microcomputer- 
produkten duidelijk naar voren laten 
komen. Daarvoor zal er een verkiezing 
worden georganiseerd, waarbij in 
verschillende categorieën een 
Microcomputer-Trofee aan een bepaalde 
microcomputer of softwareprodukt zal 
worden uitgereikt. De lezers van de diverse 
VNU tijdschriften hebben de belangrijkste 
stem bij deze verkiezingen. Zij bepalen 
voor de categorie van hun blad, welk 
produkt in aanmerking komt voor de 
Trofee. Een onafhankelijke deskundige 
jury zal aan de hand van de ingezonden 
nominaties het winnende produkt selecteren. 





Parbet Paecler Tete 
programma van het jaar 


ommodore Dossier, het 
leidende tijdschrift voor de 
Commodore-gebruiker in 
Nederland, stelt een Trofee 
beschikbaar voor het beste 
Commodore-programma van 
het jaar 1985. Hiervoor komen in 
aanmerking programma's, die: 

a - gebruikt kunnen worden in combinatie 
met een Commodore homecomputer; 





NEDERLANDSE M 
TROFFE 











OD 
ij 





voor Commodore- 


b- nuttig en/of praktisch zijn; 
c - algemeen verkrijgbaar zijn; 
d -van Nederlandse oorsprong zijn; 


Toelichting voor punt b: het uitverkoren 
programma mag praktisch en/of nuttig 

zijn voor de gewone gebruiker of voor de 
Commodore-programmeur. Dus niet alleen 
spreadsheets, tekstverwerkers, Viditel- 


komen in aanmerking, maar bijvoorbeeld 
ook sprite-editors, monitors en dergelijke. 
Toelichting voor punt c: algemeen 
verkrijgbaar wil zeggen dat een programma 
ofwel commercieel in de handel moet zijn, 
ofwel gepubliceerd is in een van de 
tijdschriften of door een van de 
gebruikersgroepen. 

Verder hanteert de jury nog een aantal 
verfijnde criteria als bijvoorbeeld: 
toegankelijkheid van een programma 
(gebruiksaanwijzingen), prijs, originaliteit 


en bruikbaarheid. 


Stem mee voor de 
Commodore Dossier- 


Trofee 


ommodore Dossier lezers, die 
op grond van de genoemde 
criteria, een kandidaat voor de 
Trofee van het beste 
Commodore programma van 
1985 willen voordragen, 
kunnen dat doen door onderstaande bon 
in te vullen. Deze moet voor 1 september 
1985 worden gestuurd naar: Nederlandse 
Microcomputer-Trofee 1985, 
Antwoordnummer 16037, 

1000 SE Amsterdam. 





Onder alle inzenders van de bon zullen tien 
homecomputers worden verloot. Indien 
Uw inzending als Trofee-winnaar in de 
categorie van Commodore Dossier wordt 
geselecteerd krijgt U ook nog eens een 
aardige attentie. Verder maakt U door 
deelname kans te worden uitgenodigd voor 
de feestavond, waarop de winnaars van de 
Nederlandse Microcomputer-Trofee 1985 
bekend worden gemaakt. 









PERSONAL 
COMPUTER 


MAGAZINE 


SHOW 


1985 


I T/M 13 OKTOBER 1985 
I0.00-1700UUR 
JAARBEURS - UTRECHT 


De personal computer: onbekend 
maakt onbemind. Ze moeten dus uit 
de sfeer van de vakspecialisten 
komen. Voor elke beurs en voor elke 
toepassing is er een microcomputer. 
Dat wordt aangetoond tijdens de 
Personal Computer Magazine Show, 
die van 11 tot en met 13 oktober 1985 
in de Jaarbeurs in Utrecht zal worden 
gehouden. Een breed opgezet 
evenement met allerlei manifestaties 
toont aan een gevariëerd publiek alle 
mogelijkheden van de microcomputer. 
De zakelijke bezoeker komt er zich « 
oriënteren op systemen voor 
administratieve dan wel andere 
professionele toepassingen. De overige 
gezinsleden behoeft hij echter niet 
thuis te laten, want voor hun zijn er 
de microcomputers voor privé- en 
educatieve doeleinden. De uitreiking 
van de Nederlandse Microcomputer- 
Trofeeën 1985 vindt plaats aan de 
vooravond van de Show. De uitslag 
van de verkiezingen vindt plaats op 
9 oktober, dus vlak voor de 
PCM-Show. Deze uitslag biedt de 
bezoekers een leidraad bij het 
maken van een keuze voor een 
bepaald merk microcomputer of 
microcomputerprogramma. 












































B Het beste Commodore-programma van 1985 is: 8 
E Ë 
ü B 
B Motivatie: _ E 
ï Î 
ï E 
8 Ë 
ï ï 
ö ï 
E Naam: E 
B Adres: 

E Postcode/Woonplaats: 

B Telefoon: El 
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programma’s en educatieve programma’s 


ICROCOM 
E 1985 






PULEK - 
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HOW 


II T/M 13 OKTOBER 1985 
[0.00-1700UUR 
JAARBEURS - UTRECHT 


Op deze veelzijdige microcomputer tentoonstelling vindt u veel 
van uw gading. De allernieuwste ontwikkeling op hard- en 
software gebied worden u op de PCM-Show geboden. 
Maar er is meer … … 








Een aantal exposanten organiseren wedstrijden waaraan u kunt 
meedoen, met leuke en nuttige prijzen. Verder kunt u zelf achter het 
toetsenbord plaatsnemen tijdens vele demonstraties en korte seminars 
die er voor de bezoekers worden georganiseerd. Een waar genot voor 
de echte micro liefhebber! 


Attentie: Uw lijfblad Commodore Dossier biedt u aan om voor de helft 
van de toegangsprijs de PCM Show te bezoeken. In Commodore Dossier 
nr. 3 (verschijnt rond 20 augustus a.s.) treft u een reductiebon aan. 








@ Assem. Basic assembler en Basic te- 
gelijk te gebruiken; programma is alleen 
op cass. Ik stuur ook een gebruiksaanwij- 
zing. Informatie: J.P. Visser, Rijksstrwg. 
124, 9804 PO Noordhoorn. 

® Simon's Basic voor C-64 met handlei- 
ding f 75,-. Schrijf naar: T. Roossien, 
Emmasingel 20, 9726 AL Groningen. Ook 
goede Pascal-compiler f 25,-. 

® Particulier heeft C-64 programma’s 
voor berekening van belastingen (België), 
te bekomen bij De Maesschalck, Wim 
Haagstraat 1, B-9370 Lebbeke. 


IK BIED HARDWARE 


EN SOFTWARE AAN 

© SHARP MZ 80A met ingebouwde groe- 
ne monitor + cass.rec. + 5 interpreters 
+ 60 programma’s + boeken. Prijs 

f 1900,-. H. Lachman, Koggestraat 13b, 
3028 VW Rotterdam. Tel: 010-129756. 
® Vic-20 incl. software + boeken + 
tijdschriften + CN 1530 recorder + 
bandjes. f 450,-. Tel. 02522-14685. 
Commodore Plus/4 incl. 2 boeken + 2 
spelcassettes slechts 3 mnd. oud + da- 
tarecorder: f 725, 

@® Te koop: CBM-64 + stofhoes + nu- 
meriek toetsenbord + ingebouwde reset 
+ Simon's Basic op cartridge + handlei- 
ding + joystick auto vuur + 50 prg’s 
prijs: f 1100,-. Tel. 080-559450 (Casper). 
® Commodore 64, 2 joysticks, datasette, 
KCS module, plusminus 200 programma’s, 
Simon’s Basic met handleiding,etc.etc. 
Prijs notk. Ritchie Zebeda, Tel. 
010-658758, Stroveer 16, Rotterdam. 

® Wegens aanschaf GP/M comp.: 
CBM-64 +4 1541 + 1530 + joystick + 
softw.ser + spel. Dit alles in st.v.nieuw, 
geh. onbeschadigd nog in garantietijd. 
vrpr. f 1525. Zeist, tel: 03404-16383 
na 18.30 uur. 


IK ZOEK HARDWARE 

® Student zoekt niet te dure C-64. H. 
van Vroonhoven, Santacker 11, 6932 YC 
Werstervoort. Tel. 08303-15606. 

® Gevraagd: Nederlandse handleiding 
voor Superbase 64. P. IJben, Postbus 
100, 7590 AC Denekamp. Redelijke ver- 
goeding toegezegd. 

© Wie heeft voor mij een programma 
waarmee ik een screendump op de 
MPS-802 kan maken? Tegen vergoeding. 
Bel of schrijf: Marcel van Duuren, Akker- 
windestr. 8, Den Haag. Tel. 070-254298. 
® Ik zoek een programma op tape voor 
het bijhouden van bowlingscores op mijn 
CBM-64 (tegen redelijke verg.). Reacties: 
L. Terlouw, Vliegerzeil 15, 2924 BX 
Krimpen a/d IJssel. 

® Gezocht: Bank/giro-programma voor 
CBM-64 met Commodore recorder. Gerin- 
ge betaling mogelijk. 

© CURRAH speech synthesiz. 03 VIC-20 
chatterbox. Schrijf naar D. van Rossen, 
Puecinistr. 41, 3122 HJ Schiedam. 


® Ik zoek Kleurenmonitor en een disk- 
drive. F.v.Beijnen, 0. van Salmstraat 24, 
4811 LB Breda. Tel. 076-147855. 

@® CBM-64, datarec., evt. CBM 1541 dri- 
ve. W. Michels, Tel. 080-225448. 

©® 1541 diskdrive ev. ruilen met moni- 
tors, Sony videorecorder of cass.recorder 
met tapequeen. Tel. 04132-64900 tussen 
1900-2100 uur. 

© Complete 24K uitbreiding voor mijn 
VIC-20. T. Dissel, Zegveldstraat 33, 2546 
EA Den Haag. Tel. (na 18.00 uur) 
070-211493. 

® Ik zoek een MPS 802 printer en Ne- 
derlandse uitleg van de disk 1541 ev, on- 
kosten worden vergoed. S. de Boer, E. 
Murandstraat 47, 8932 GZ Leeuwarden 
(Fr). Tel: 058-137823. 

® Printer voor CBM-64, diskdrive 1541 
in goede staat. Tom Maes, Haantjeslei 
164, 2018 Antwerpen België. Tel. 
031273.60.09, vragen naar Tom. 

® Een Commodore C-16 en portable mo- 
nitors. t.e.a.b. L.A.J. Vriendts, Servili- 
usstraat 192, 6006 KJ Weert. 

© Panasonic printer tegen redelijke prijs 
(KX-P 1090). Eventueel ruilen voor tech- 
nisch Lego. Aanbieding en prijsopgave 
naar G.A. Helms, Schorrenkruidlaan 47, 
Philippine. 

® Gezocht CBM 1541 diskdrive. aanb. + 
prijsopg. Tel. 02990-43084. R. Hendriks, 
Purmerend. 

@ Commodore 64 + 4541 + monitor. 
Tel. 08859-86938. 

® Zoek 1541 diskdrive; prijs rond 

f 300,-. P.V. Dillen, 05410-15839. Bui- 
tensociëteitstr. 9, 7573 EL Oldenzaal. 

® Ik zoek een CBM 64 + rec. + hand- 
boek + evt. joystick en software. Bel na 
16.00 uur: tel 05207-1390. Vraag naar 
Matthijs. 


IK ZOEK SOFTWARE 

@ Beginner zoekt zoveel mogelijk pro- 
gramma’s (geen disk), ook ruilen. Zoek 
ook kontakt met medegebruiker CBM-64 
(omg.Leuven). Grieten D. St. Ermelin- 
disstr. 11, B-3042 Lovensoel België. 

® Ik zoek programma belastingberekening 
voor België op cassette of listing tegen 
redelijke prijs. Monten Keiput 70-1, 1800 
Vilvoorde (België). Tel. tijdens kantooruren 
02/2434417. 

© Leraar zoekt educatieve prog. om te 
gebruiken in lager onderwijs (eventueel 
ruilen). Boudolf L. Christinastr. 1, Bus 41, 
8400 Oostende België, tel. 059509190. 
© Wie kan mij helpen aan goede Simon’s 
Basic tekenprogramma’s tegen vergoe- 
ding? Hennie Heeren, Bolakkersstraat 30, 
3583 Overpelt (België) Tel. 011/646216. 
® VIC-20 software gevr. voor de VIG 
zonder uitbreiding, liefts op cassette. Te- 
gen vergoeding. Mogen ook listings op pa- 
pier zijn. L. de Boer, Mgr. Driessenstr.5, 
Roermond. Tel. 04750-19140. 

©® Wie kan mij helpen aan listing van da- 
tabase en spreadsheet uit nr. 0? 

F. Grondijs, Waalsteen 34, 





2961 XG Wijk bij Duurstede. 

® Ik zoek software liefst spelletjes, op 
cass. Ruilen mogelijk, heb er zelf 33. 
Schrijf naar Frans, Postbus 311, 2181 
AR Hillegom of bel na 18 uur 
02520-29480. 


_ © Wie kan mij helpen aan programma's 


voor de CBM-64 tegen redelijke vergoe- 
ding op cassette? G. Beuker, Maasstraat 
3, Den Helder. 

® Ik zoek postzegelbestand voor de CBM 
64. Alsook enkele spellen voor CBM 64. 
Reacties naar R. Hendrikx, Vincken- 
hofstraat 112, 5913 EG Venlo. 

®@ Wie kan mij helpen aan de listings 
van PG-calc? + PC-base uit comm.Dos- 
sier nr.0 of dit nuinr. A. van Rijn, Water- 
torendruid 21, Nieuwerkerk a/d IJssel. tel. 
01803-18373. 

@ Gevr. software v. Comm. 64. Be- 
langst. v. Ned.talige educ. progr. v. basis- 
school, alsook v. 1090, basicade. M. ten 
Haken, Clausstr. 34, 4561 JD Hulst. 


IK ZOEK HARDWARE EN SOFTWARE 
© Wie kan mij helpen om een modem ty- 
pe HVA 300 LSI van KH aan te sluiten 
op mijn C-64? Plus software. J. van de 
Steen, Abcoudehoeve 46, 3137 RM 
Vlaardingen. 

@ Wie heeft voor mij een goede diskdri- 
ve te koop, en programma’s voor Commo- 
dore 642 Prijsopgave naar C. van de 
Steen, Voorterstr. 133, 6462 SE Kerkrade 
tel. 045-455652. 

® Ik zoek spelprogr. voor cassette en 
wie heeft een diskdrive 1541? Prijsopga- 
ve naar G. v.d. Steen, Voorterstr. 133, 
6462 SE Kerkrade. Tel. 045-455652. 

© Wie kan mij helpen aan hardware 
en/of software en/of ervaringen met RTTY 
ontvangst met de CBM-64? Reacties 
graag aan Holger Boswijk, Zwolseweg 36 
te Deventer, tel 05700-19446. 


IK BIED AAN EN ZOEK HARDWARE 
© Te koop CBS spelcomputer met 3 spe- 
len f 200,-. Te koop gevraagd Datasette 
voor de CBM 64 tegen redelijke prijs. J. 
van Gessel, Postbus 399, 7000 AJ Doe- 
tinchem. 


IK WIL RUILEN 

® Ik wil software voor de CBM-64 ruilen. 
Stuur lijst naar: J. Kooman, Olmenlaan 4, 
4334 CK Middelburg of bel naar 
01180-27177. Graag Simon's Basic prog. 
® VIC-20 + 16K + rompacks — schaak 
+ garden wars + 7 cassettes met spel 
+ joystick. Ik vraag CBM-64 + joystick 
en spelen, geef ook vergoeding. W. v.d. 
Meent, Scherpenburglaan 101, 3523 JX 
Utrecht. 

® Door de tegenvallende verkopen van 
de Plus/4 is er weinig software te koop 
voor deze machine. Welke Plus/4 bezitter 
beschikt over software en wil ruilen? Tel: 
01608-21849. 
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ADVERTENTIE-EXPLOITATIE 


ADVERTENTIE-SECRETARIAAT 


_ AKTIEF 


® CBM-64 software aangeboden en te- 
vens gevraagd. Viditel programma- 
aansluitingschema interfacekabel program- 
ma op cass. of eprom. Jan Munnik, tel. 
02230-13360. 

® Wie ruilt mijn comm. 802 printer voor 
Margrietwielprinter of ev. schrijfmachine 
met aansl. kabel? Tel. 038-54767 
Zwolle. 

© CBM-64 software o.a. Easy script, Si- 
mon’s Basic, Vizawrite en spelletjes. Tel. 
02155-15041. 


OVERIGE 

® Ik bied aan antiek telegraaftoestel (uit 
pim. 1920), geheel compleet in ruil voor 
een goede printer passend op CBM-64. 
H.L. Lammers, tel. 03448-1753. 

@ Gevraagd: handleiding voor Commodore 
64, Ik betaal f 25,- voor goed exemplaar. 
Reacties Rob v.d. Brug, Postbus 439, 
7500 AK Enschede. Ik zoek Commodore 
en/of diskdrive nr. 1541. Tel: 440.66.93, 
België. 

® Wie kan mij Commodore Dossier nr.0 
bezorgen (eventueel gekopieerd) tegen 
vergoeding? G. Lauwerier, Koutersbaan 
164, 9470 Denderleeuw, België. 

© Ik zoek contacten met medegebruikers 
C-64 voor uitwisseling ervaring in Delft. 
Schrijf naar: G. Hogendorp, Posthus 603, 
2600 AP Delft. 

®@ Tegen redelijke vergoeding wil ik print- 
werk doen voor wie geen printer bezit. J. 
Steffers, Catharinaland 114, 2591 CP Den 
Haag. 


“ @ Wie helpt mij aan O nummer van Com- 


madore Dossier? S.B. vd Heijden, Asser- 
weg 181, 3053 AE Rotterdam. 

®@ Wie heeft de 2 modemprogramma’s uit 
Dossier nr. 2 met goed gevolg ingetyped? 
Ik zou deze dan graag overnemen op tape 
of disk. Bij voorbaat dank! M. v. Slage- 
ren, Langswater 299, 1069 EC Amster- 
dam, tel. 020-192062. 

® Voor onze lagere school zoeken wij 
educatieve programma’s, alsook allerhan- 
de software hieromtrent. Graag kontakt 
met leraren! Inl: Fr. Hemeleers Korenweg 
19, 2980 Boortmeerbeek (B). 

© Wie kan bij helpen aan de Ned. be- 
schrijving van het progr. The Manager 
(€-64)? Onkosten worden vergoed! Schrijf 
a.u.b. L. Broekhaert, Vlasstr. 33, 4566 
BC Heikant, tel. 01140-1520912331. 


U kunt uw advertentie- 
opdrachten sturen naar: 
CD-MARKT 

t.a.v. Carla de Haan 
redactiesecretariaat 
Rijnsburgstraat 11, 
1059 AT Amsterdam 
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KEUZE 1: Basic 


Van basic tot machinetaal op Commodore 64 


Ondanks de vele boeken die inmiddels over 
deze populaire micro zijn verschenen is er nog 
nooit een boekwerk zo breed en diep ingegaan 
op alle facetten en mogelijkheden. 

Stap voor stap leert u werken met 

© Basic ® Hulptalen (Logo, Pascal, Pilot) 

® Geluide Grafische mogelijkheden 

®@ Accessoires © Machinetaal 

D.m.v. duidelijke programmavoorbeelden wordt 
u vertrouwd gemaakt met uw C.64. 

U blijft nu niet meer steken bij een eenvoudig 
spelletje: door logische opbouw en professionele 
voorbeelden komt u tot een volledig gebruik 
van uw computer. Niet alleen de computer wordt 
uitgebreid belicht, ook de talrijke accessoires. 


In ieder hoofdstuk zal tekst en uitleg 
aangevuld worden met listings van direkt 
toepasbare subroutines, waardoor het geheel 
logischer wordt door praktische voorbeelden. 
Het enige dat u nodig heeft is een Commodore 
64/128. Dit handboek is zowel geschikt voor 
beginners als voor gevorderden. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Van basic tot machinetaal op G64 
Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2200, 

prijs f 99,-— excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


KEUZE 2: Microcomputertechniek 


Microcomputer techniek — uw hobby met toekomst 


Dit superaktuele naslagwerk stelt u alles ter 
beschikking wat u anders moeizaam uit 
tijdschriften en vakliteratuur bij elkaar moet 
zoeken. 


Software voor hobby en beroep 

U ontvangt o.a. direkt toepasbare programma’s, 
tekstverwerking, adressen- en voorraadbeheer, 
maar ook voor schaken, grafieken, sturen en 
regelen en afstandsbediening, enz. 


Bouwschema’s 

Bouwschema’s gedrukt op plasticfolies geven u 
de mogelijkheid computers met een vaste schijf, 
verwerkingsuitbreidingen, interfaces, 

in- en output-apparatuur zelf te bouwen. 


Het zwaardere werk op C64 


Dit naslagwerk is bedoeld om in duidelijk 
Nederlands de moeilijkste spellen voor de 
Commodore 64 uit te leggen. ledere simulatie of 
spel zal in detail worden besproken, met kleuren- 
afbeeldingen om zelf te controleren. 


In SUBLOGICS FLIGHT SIMULATOR zal bijvoor- 
beeld een volledig vlucht met start en landing 
stap voor stap worden besproken. Zo zullen ook 
onder andere NATO COMMANDER, JUMPMAN, 
MINER 2049ER uitgebreid aan bod komen. 


Het basiswerk zal 75 topspellen beschrijven, dat 
vervolgens iedere drie maanden met zo’n 25 
spellen wordt uitgebreid. Door middel van 
verlanglijstjes die ingevuld kunnen worden, 


STEEDS UP TO DATE 


Het is als bij de krant: vandaag nog aktueel, morgen 
”oud nieuws”. Op nauwelijks enig ander terrein gaat 
de ontwikkeling zo snel als in de computer- 


technologie. Regelmatig worden nieuwe en betere 
programma’s ontwikkeld. Reden voor ons om deze 
boeken te voorzien van een aktualiseringsservice. 


Tot wederopzegging ontvangt u circa 4 maal per jaar 
een aanvulling van ca. 120 pagina’s op uw 
naslagwerk, welke u eenvoudig kunt invoegen in het 
basiswerk. U blijft dus beschikken over een boek dat 


NOOIT VEROUDERT. 


Naam: 


Software-paketten 

Opdat u de gebruiksmogelijkheden van uw 
apparatuur volledig kunt benutten, ontvangt u 
uitvoerige informatie omtrent de software- 
pakketten CP/M, MS/DOS, UNIX en OASIS. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan deze pagina. 


Aktuele microcomputertechniek 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 2300, 
prijs f 99,- excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


KEUZE 3: Spellen op de C64 


zullen we steeds de populairste spellen en 
simulaties opnemen. 


Bestel nu reeds dat unieke naslagwerk, dan 
zenden wij het u direkt na verschijnen toe. 


Een naslagwerk dat nooit veroudert: 
zie de informatie onderaan de pagina. 


Het zwaardere werk op C64 


Naslagwerk in luxe ringband, formaat A4, 
basiswerk ca. 300 pag. Bestelnr. 3400, 
prijs f 99, excl. porto, prijs aanvulling 

f 49,95, verschijning: zomer 1985 


BESTELCOUPON 


Zend mij tot wederopzegging het aangekruiste 
naslagwerk, waarbij ik mij tevens tot wederop- 
zegging abonneer op uw aktualiserings-service. 


5 Na ontvangst betaal ik f 99, plus porto 
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Weka Uitgeverij BM Y Bon opzenden aan: 


Postbus 61196 - 1005 HD AMSTERDAM - 020-8671331 


Weka Uitgeverij BM, Antwoordnummer 15412, 1000 PZ AMSTERDAM 
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De nieuwe Commodore met standaard 256 Kb geheugen, 
inclusief toetsenbord, dubbel diskette station en inclusief 
een monochrome high-resolution monitor 








De nieuwe Commodore PCs een zeer krachtige 
16 bits computer. Hij werkt met alle bestaande 
MS/DOS software, die over de gehele wereld 
momenteel gebruikt wordt. Daardoor beschikt u 
over honderden programma's die door en door in 
de praktijk werden getoetst. Voor algemene toe- 
passingen zoals tekstverwerking, spreadsheets, 
grafische programma's en data management. 
Maar ook voor specifiek zakelijke toepassingen 
voor velerlei branches, met name in het midden- 
en kleinbedrijf. Dat wordt u nu geboden - en nog 
veel meer - voor een prijs die zeker een nieuwe 
standaard wordt. 


5.695,- 


De nieuwe Commodore PC. Leer hem snel 
kennen. ® INTEL 8088 16 bits processor ® 256 Kb 
RAM intern geheugen, uit te bouwen tot 640 Kb 
® Dubbel diskette station, 2 x 320/360 Kbe® High- 
resolution monochrome monitor, groen ® ASCII 
toetsenbord ® Eveneens leverbaar de PC 20 voor 
de prijs van f 9.150,- excl. B.T.W. (diskette station 
| x 360 Kb en | x 10 Mb harddisk). Voor meer 
gedetailleerde informatie over de Commodore 
PC kunt u terecht bij de neven- 
staande geautoriseerde 





PP 
Commodore Systeemdealers. m 
Of vraag documentatie met de |__ commodore 


COUPON. Daar wordt een mens wijzer van 








Ja, stuur mij de complete 
COU PON documentatie over de nieuwe | 


Commodore PC, 





| 

| 

| Naam bedrijf 

| Contactpersoon 
Adres, | 
| Postcode/Plaats 
Wie | 
| 
| 
| 
| 


Functie Ne 


Zend de coupon in een gefrankeerde envelop aan: | 
Commodore BV. Postbus 8192, 1005 AD Amsterdam | 


Handtekening 


Toepassing 


Alkmaar Accom BV, Verdronkenoord 28, tel. 
0072-122412. Alphen a/d Rijn Hermes HCS. BV 

kKoperweg 35, tel. 01720-35079 Amersfoort Acto 
BV, Amsterdamseweg 53, tel. 033-621/24, Am- 
sterdam A.K.G. Micro Systemen, Dam 2/, tel. 020- 
27/2266. Bocaraton BV, Schepenbergweg 16, 
tel. 020-9/0751. Heisterkamp & Partners BM, 
Stadhouderskade 2, tel. 020-163429. Jon Kee 
Groep, Thorn Prikkerstraat 50, tel. 020-170806 
Prompt Computerservice, Prinsengracht 366, tel. 
020-228078. W & L Automatisering, Parnassusweg 
203, tel. 020-798707. Arnhem Bruns Kantoorinst. 
BM, P. Calandweg 56, tel. 085-648550. Assen 
Kuyer Computer Systemen, Kloekhorststraat 8, tel. 
05920-15881. Beverwijk Dingler Computer 
Partners, Graaf Janstraat |, tel. 02510-29171, Bode- 
graven MMS BV, Europaweg 3, tel. 01726-11171. 
Bovenkarpsel Complan BV, Hoofdstraat 156, tel. 
02285-11628. Breda Indelec BV, Wilhelminastraat 
44, tel. 0/6-142333. Doetinchem Egberts Software 
BM, Houtsmastraat |50, tel. 08340-44627. Drie- 
bergen Ing. Bur. A. Kooijman, Hoofdstraat | 19, tel. 
03438-21051. Eindhoven L+T International BM, 
Winkelcentrum Woensel 84, tel. 040-4111425, 
Reyers, Willemstraat 3, tel. 040-522888. Enschede 
Compakt Automatisering, Steenriet 16, tel. 053- 
338585. Gorredijk Incap BM, Leitswei 9, tel. 051 33- 
4400. ‘s-Gravenhage A.S.O., Frederikstr. 76, tel, 0/0- 
650348. Datacom, Oranjestr. 7, tel. 0/0 - 655812. 
Info Computercentrum, Noordeinde 101, tel. 070- 
646830. Logic Data, Rijswijkseweg 31, tel. 070- 
88/7328. Groningen Incap BV, Peizerweg 68, tel. 
050-1120603. Harderwijk Microsign BV, Verkeers- 
weg 53, tel. 03410-20004. Ridero Computerhouse, 
Hierdenseweg |6-18, tel. 03410-12984. Hard. 
Giessendam C.A.B. Holland BV, Peulenstraat 55, 
tel. 1846-6638. Heeswijk Dinther Heisterkamp & 
Partners, Brouwerstraat 15, tel. 04139-2818, Hel- 
mond Automatiserings Advies Centrum, Hortsedijk 
37, tel. 04920-47775. Hendrik Ido Ambacht Troost 
Systemen Centrum, Veersedijk 63, tel. 01858- 
17022, Hengelo Heisterkamp & Partners, Willem- 
straat 6/, tel. 0/4-437992, ‘s-Hertogenbosch Malm- 
berg Fysica, Beverspiken 5, tel. 0/3-215565. 
Hilversum Computerworld, Hilvertsweg 99, tel. 
035-12633. Hoevelaken System Design Nederland 
BM, Oosterdorpstraat 166, tel. 03495-37100. 
Hoofddorp W & L Automatisering, Concoursbaan 
lb, tel. 02503-31890. Hoorn Compuregio, Nieuwe 
Steen 6, tel. 02290-32624. Kerkrade Comser 
Systems BV, Old Hickoryplein 4, tel. 045-462665. 
Laren Inter Access Systems BV, Naarderstraat 66, 
tel. 02153-13000. Maarssenbroek Perce Computers 
BM, Planetenbaan 2, tel. 03465-66066. DeMeern 
Àton Services BV, Strijkviertel 33, tel. 03406-3944, 
Middenbeemster Cryoson Hi-Tech, Rijperweg 40, 
tel. 02998-16/0. Oegstgeest K.P.D., Rhijngeester- 
straatweg 58, tel. 0/1-1/104|. Raalte Combo BM, 
Deventerstraat 43, tel. 05/20-54/72. Ridderkerk 
Computer Centrum Randstad, St. Jorisstraat 3, 
tel. 01804-27878. Roermond Info 80, Minderbroe- 
dersingel 30a, tel. 04/50-1/520. Rotterdam A.C.C., 
Groothandelsgebouw A, 5e et. tel. 010-128640. 
Computerworld, Keerweer 99, tel. 010-137823. 
Confi Personal Computing, Vasteland 28, tel. 010- 
146941. Deltacom Informatiesyst. BV, Koperstraat 
30, tel. 010-552555. Faab Software, Schiedamsedijk 
6/a, tel. 010-3320//. Heisterkamp & Partners, 
Statenweg 39, tel. 010-66/7933. Kraan Bouwcompu- 
ting, Weena 128, tel. 010-136950, MMS Compro- 
shop BV, Westblaak 15, tel. 010-132813. Rijswijk 
Biasc Computer Systems BM, Bruyn Kopsstraat | 2- 
14, tel. 0/0-900100. Sneek Stercom BM, Mr. 
C.P.M. Rommestraat 6, tel. 05150-23885. Soest 


| Advisie BV, Vredehofstraat 13, tel. 02155-11434. 


Utrecht Hesterkamp & Partners, Oude Noord 
LIL, tel. 030-322633. Techmation/Crest BV, Savan- 


| nahweg 35, tel. 030-420122, Valkenswaard Cosmos 


Computer Service BM, Valkenierstraat 2, tel. 
04902-17940. Veendam Infocient, Eems 18, tel, 
05987-16018. Yzendoorn MBM Microsystemen, 
Keizerstraat 9, tel. 03444-3232. Zaandam Micro- 





plus, Zomerdijk 3 |, tel. 0/5-35131 |, Zeist Compute 
Zeist BM, 2e Hogeweg 123, tel. 03404-25252. 
Zwolle BSG. Nederland BV, Diezerplein 26, 
tel. 038-548855. 





